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PREFACE 



The research reported in this Memorandum, rather 
than being aimed at the construction of a specific com- 
piler (a computer program for translating instructions 
from a language convenient to the programmer to the 
machine language), is directed towards deepening our 
understanding of the kinds of problem- solving activity 
that are involved in computer programming, and the kinds 
of language and representational means that are needed 
to produce more sophisticated compilers. The Memorandum 
takes the form, therefore, of a series of illustrative 
problems of compiler design, with proposals, worked out 
in some detail, for their solution. 

There has been, in the past decade, enormous progress 
in the development of higher- level programming languages 
for instructing computers. Through the invention of alge- 
braic compilers, like FORTRAN, IT, and ALGOL, data pro- 
cessing languages like COBOL, and list-processing languages 
like IPL, LISP, and COMIT, the labor of programming has 
been reduced several orders of magnitude. Yet, when we 
are faced with the complexities of modern command and 
control systems, and the programming problems they present, 
we recognize that the progress made to date is not nearly 
enough. Programming a computer to perform a complex task 
is still very much more intricate and tedious than in- 
structing an intelligent and trained human being for that 
task. 
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Most visibly, the human- -if, to repeat, he is intel- 
ligent and knowledgeable- -does not have the literalness 
of mind that is so characteristic of the computer, and so 
exasperating in our interaction with it. From his own 
store of knowledge, he supplies facts that we neglect to 
give him; given statements of objectives in broad func- 
tional terms, he applies his problem- solving powers to 
filling in the detail of method; confronted with the 
vagueness and informality of natural language, he inter- 
prets meaning and intent. 

The experiments reported in this Memorandum aim at 
further bridging the gap between the explicitness of exist- 
ing computer programming languages and the freedom and 
flexibility of human communication. The work was motivated 
by the belief that until we bridge that gap, we shall not 
be able to harness effectively the powers made available 
to us by modern digital computers and apply them to the 
vast systems (e.g., command and control) that are becoming 
such a central feature of our military and civilian tech- 
nology . 

This work is part of The RAND Corporation's continu- 
ing program of research in the area of complex information 
processing, under U.S. Air Force Project RAND. The author, 
a RAND consultant, is a member of the faculty at Carnegie 
Institute of Technology. The Memorandum is directed 
primarily to systems programmers who are faced with problems 
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of compiler design, with the hope that its proposals will 
suggest means for increasing the power, generality, and 
flexibility of compiling systems. 
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SUMMARY 



Two major themes run through the topics discussed 
in this Memorandum. The first thesis is that more of the 
programming burden can be shifted from programmer to 
computer if the computer is given some problem- solving 
powers. In previous works it has been shown how a computer 
program, the General Problem-Solver, can simulate the kinds 
of means-end analysis that humans use to solve problems.* 
Part I of the present Memorandum shows how a compiler can 
be designed that makes use of heuristic problem- solving 
techniques like those incorporated in the General Problem- 
Solver (GPS). Such a scheme permits a desired program to 
be specified in general terms, with the compiler using 
means-end analysis and selective trial-and-error search 
to work out the exact "how" of it. 

The second main theme is that if we are to have 
flexibility in a compiler language commensurate with the 
flexibility of natural language, we must first gain an 



The General Problem- Solver has been described, and 
its behavior analyzed, in several RAND publications by 
A. Newell, J. C. Shaw, and H. A. Simon: Report on a 
General Problem- Solving Program , P-1584, February 9, 1959; 
The Simulation of Human ThougKt , P-1734, June 22, 1959; 
A Variety of Intelligent Learning in a General Problem 
Solver. P-1742. July 6, 1959; GPS: A Program that Simulates 
Human Thought , P-2257, April 1U, 1961; Computer Simulation 
of Human Thinking , P-2276, April 20, 1961; Computer ~ 
Simulation of Human Thinking and Problem Solving , P-2312, 
May 29, 1961. ~ 

Also see, A Guide to the General Problem-Solver Program 
GPS -2 -2 , Allen Newell, RM-3337-PR, February 1963. 
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unders tanding of the ways in which meanings are represented 
in natural language, and then devise representations of 
corresponding power (and ambiguity) for compiling languages. 
Parts II and III are devoted primarily to questions of 
language and representation. They provide a number of 
suggestions for increasing the generality and flexibility 
of compiler languages. 

The boundaries between the three parts are largely 
chronological. Part I represents work completed during 
the winter of 1960-61; Part II, work done during the 
spring of 1961; and Part III, work done since the summer 
of 1961, particularly during the summer and autumn of 1962. 
A program listing for the main portion of the compiling 
scheme, described in Sections I-V of Part I, is given in 
Appendix A. A program listing for the annexing scheme, 
described in Sec. IX of Part III, is given in Appendix B. 
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PART I 

A PROBLEM- SOLVING COMPILER 

In this first part, we describe a compiler that makes 
use of heuristic problem- solving techniques like those 
incorporated in the General Problem- Solver (GPS).* 
Section I provides a brief introduction to the theory of 
problem solving and the structure of GPS. Section II 
shows how programming can be interpreted as a problem- 
solving activity, within this framework. Section III 
describes the main components of the compiler, and Sec. IV 
indicates how the compiler could be incorporated as a 
set of subroutines to GPS. Section V describes an exten- 
sion of the compiler to handle flow diagrams. A complete 
program listing for the compiler is given in Appendix A. 



* 0p. cit. , p. vii. 
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I. THEORY OF PROBLEM SOLVING 

The motivation for the Heuristic Compiler is supplied 
by a theory of problem solving that also provides the 
basic framework for the General Problem- Solver . By a 
problem, we mean a situation of the following kind: 

1. We are given a (partial) description of a present 
situation and a desired situation . These situa- 
tions are described in a language that we may 
call the state language . The state language is 
sufficiently rich to permit us to describe situa- 
tions (we shall call such descriptions obj ects ) , 
and to describe differences between pairs of 
situations . 

2. We are given a list of operators that can be 
applied to situations to transform them into new 
situations. Operators are named in a language 
that we may call the process language . Any 
sequence of operators named in the process language, 
also names an operator—the compound operator 

that consists in applying, successively, the 
elementary operators belonging to the sequence. 

3. A problem solution is a (compound) operator in 
the process language that will transform the 
object describing the present situation into the 
object describing the desired situation. 
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EXAMPLE: We take as the objects in the state language 
the integers, 1, 2, We take as the elementary opera- 

tor the successor operation, which we shall designate as ' 
in the process language. Then ' 11 and ' 11,1 are examples 
of compound operators. Consider the problem of trans- 
forming the present object 5 into the goal object 8. The 
solution is the operator "', for 5 1 ' ' =8. More generally, 
1 1 ' is the operator that removes the difference +3 between 
any two objects, x and y; for if y - x = +3, then x' ' 1 = y. 
Here +3 is a difference in the state language; 11 ' is 
the operator relevant to that difference in the process 
language. We may construct a table of connections to 
associate with each difference the operator or operators 
relevant to it. 

With this formulation of the concept of "problem ," 
many techniques of problem solving can be subsumed under 
the following general paradigm: 

MEANS-END ANALYSIS. Given the present and desired 
objects, find a difference between them. Next find 
an operator relevant to the difference; determine 
if the operator can be applied to the present object. 
If so, apply it. (If not, describe the objects to 
which it would apply and transform the present object 
into an object of that kind- -a new "desired object.") 
Take the new object thus obtained as the present 
object and repeat the process. 



-4- 



The General Problem- Solver is a program that uses 
this scheme of means-end analysis for attempting the 
solution of any problem that can be cast into the form 
described.* 



This is a bare-bone description of GPS, but it will 
suffice for our purposes . 
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II. PROGRAM WRITING AS PROBLEM SOLVING 

The task of proving a theorem can be formulated as 
a problem for GPS. The desired object is the theorem to 
be proved. The present object is the set of axioms and 
already-proved theorems . The operators are the legitimate 
processes for transforming a subset of axioms and/ or 
theorems into a new theorem. We have a proof when we have 
a sequence of operators that transforms the present object 
into the desired object. (What we call a proof here is 
usually regarded as the justification for the proof steps; 
the proof, as usually written out, consists of the sequence 
of successive transformations of the axioms and given 
theorems . ) 

The sequence of operators that constitutes a proof 
can also be interpreted as a program that generates the 
desired object from the given object; for if we apply the 
operators of the proof, in sequence, to the present object 
(the axioms and previous theorems), we obtain precisely 
the desired object — the theorem to be proved. Thus, a 
theorem- proving system can be regarded, at least formally, 
as a program-writing system. Conversely, if we can formulate 
a programming goal as a difference between a present and a 
desired object, we can presumably use the same processes, 
which in the other context will generate the proof of a 
theorem, to generate a program. 
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III. OUTLINE OF A HEURISTIC CODER FOR IPL-V 

In the remainder of Part I, I shall describe a 
number of routines for compiling programs in Information 
Processing Language V (IPL-V), an interpretive list- 
processing language.* What is common to all of these 
compiling procedures is that they embody the problem- 
solving notions discussed in the preceding paragraphs. 
That is, each of the compiling routines accepts the task 
of writing programs in IPL-V on the basis of certain in- 
formation provided to it. The task is accomplished by 
the application of the means-end analysis that has been 
described. The several compiling routines differ with 
respect to their methods of formulating or representing 
the problem--that is, each operates with a different state 
language. At present, there are three compiling routines: 

1 . SDSC Compiler (State Description Compiler) [U140] .* * 
This routine takes as its input a description (SDSC) of 
the contents of the relevant computer cells before and 
after the routine to be compiled has been executed. It 
produces an IPL-V routine that will transform the input 
state description into the output state description. 

*See Newell, Allen (Ed.), Information Processing 
Language V Manual , Pr en t ic e -Hall, Englewood Cliffs, N . J . , 
1961. 

**Expressions in square brackets are names of the 
corresponding routines, data list structures, and symbols 
in the compiler program. 
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2 . DSCN Compiler (Descriptive Name Compiler) [U134] . 
This routine takes as its input a verbal definition (in 
the form of an imperative sentence) of the routine to be 
compiled. It produces an IPL-V routine that is the trans- 
lation, in the interpretive language, of that definition. 

3. General Compiler [U135] . This is an executive 
routine that can use the SDSC Compiler, the DSCN Compiler, 
and others as subroutines. It takes as its input infor- 
mation about the routine to be compiled; the information 
can be stated in any one of several representations (e.g., 
those appropriate to SDSC or DSCN) . The routine then 
selects subroutines that can use this information to pro- 
duce the desired IPL-V code. 

From a logical standpoint, we could describe the 
Heuristic Coder as a single program whose executive 
routine is the General Compiler, and which contains the 
SDSC Compiler and the DSCN Compiler as subroutines. For 
clarity of exposition, it will be better to describe the 
two parts first as independent programs, and then show 
how they are imbedded in the General Compiler. 

THE SDSC COMPILER 

A computer routine can be defined by specifying the 
changes it produces in the contents of the storage loca- 
tion it affects, or, what amounts to almost the same 
thing, by specifying the before and after conditions of 
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these storage registers. A definition of this kind is 
not, of course, univocal, for programming is a synthetic, 
not an analytic task; there will generally be many programs 
(not all equally efficient or elegant) that will do the 
same work. As presently constituted, the SDSC Compiler 
attempts to find some one routine to accomplish a given 
task . 

EXAMPLE: In IPL-V there is a process, PUT SYMBOL J3 
IN MEMORY LOCATION H5, which affects a single memory 
location, H5. This process [X105] happens to have the 
name J3 ; its state description (SDSC) is the following: 

BEFORE J3 is executed, cell H5 contains a symbol, 
call it Si, followed by an indeterminate list of symbols, 
RO (call this the pushdown list associated with H5) . 

AFTER J3 has been executed, cell H5 contains the 
symbol J3, followed by the same list of symbols, RO, as 
before. The token of symbol Si that was previously in 
H5 has been destroyed. 

Notice that it is implicit in this SDSC definition 
of J3 that the content of no cell other than H5 has been 
altered by the routine. We can represent the SDSC [the 
value of attribute X24 of the routine] diagrammatically 
as follows : 
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SDSC of J3 

Affected Cells 
H5 

Input S1,R0 
Output J3 ,R0. 

Generalizing, the SDSC of a routine consists of a 
list of affected cells [attribute X71 of X24]. For each 
affected cell on the list, the SDSC specifies its input 
state [attribute X75 of X71] and its output state 
[attribute X76 of X71]. 

To compile the IPL-V code (JDEF) for J3, the SDSC 
Compiler [U140] proceeds as follows : 

1. It matches [X7] the input states with the output 
states of the affected cells until it finds a difference . 
In the example cited, the difference between the input 
and output states of H5 may be called a replacement in H5 . 

2. It searches [U150] a table of connections [X90] 
that associates with each difference a list of operators 
(compiled IFL-V routines) that are relevant to that dif- 
ference. In the example, the table of connections would 
contain, associated with the replacement difference [X83], 
the IPL-V routine P2(C) [X106] . P2(C) replaces the 
symbol in cell C, a variable, with the symbol in cell HO. 
Thus, P2(C) has the following SDSC [see local 95 of X106] : 
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SDSC of P2(C) 

Affected Cells 

HO C 

Input S2,R0 S1,R0 

Output R0 S2,R0. 

3. It tentatively applies [U141] the relevant op- 
erator it has found to the input state of the SDSC to be 
compiled, and determines the resulting output state. In 
applying the operator, it makes appropriate substitutions 
for the variables in the operator [U153, U154] . Thus, 
applying P2(C) to the input of J3, we find, by matching, 
that we should set C = H5 and S2 = J3, giving: 

SDSC of P2(H5) 

HO H5 

Input J3,R0 S1,R0 

Output R0 J3,R0. 

4. The application of the operator creates two new 
subproblems : Let I be the input state of the routine to 
be compiled, 0 & its output state, I fe the input state of 
the operator, and 0 b its output state. The original 
problem was to transform I fl into 0 & . The new problems 
are: (1) to transform I into I b (i.e., to establish the 
input conditions for application of the operator) , and 
(2) to transform 0 b into 0 fl (i.e., to transform the out- 
put state of the operator into the desired output state 
of the routine to be compiled). Either of these new 
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problems may reduce to the identity transformation, in 
which case that part of the problem is solved. If this 
reduction does not occur, then the same steps, 1, 2, 3, 
are applied [recursion of U140] to the new subproblem. 

In the example at hand, 0^ is identical with 0 a ; 
hence, the remaining subproblem is to transform I & into 
1^, that is, to compile a routine with SDSC : 

HO 

S2,R0 
J3,S2,R0. 

The repetition of step 1 for this subproblem dis- 
covers a new difference, an addition [X82] to HO. Step 2 
finds the relevant operator, process P1(S) [X107], which 
adds the symbol S to the symbol list in HO. Applying, in 
step 3, the operator P1(J3), the input state of HO: 
S2,R0, is transformed into the output state, J3,S2,R0. 
Hence, the solution to the original problem of compiling 
J3 is obtained by the sequence, P1(J3), P2(H5), or, in 
the usual IPL-V format [X22 of the routine] : 

J3 10 J3 

20 H5 0. 

We see that for the SDSC compiler to operate, it 
must be provided with a set of differences and matching 
tests for noticing differences, a set of already-compiled 
operators, and a table of connections between differences 
and operators. Further, when it has compiled a new routine, 
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the compiler can annex this routine to its set of available 
operators and use it in compiling subsequent routines. 

THE DSCN COMPILER 

Let us now consider an alternative compiling scheme 
for the same routine, J3 . Instead of specifying the 
before and after condition of the computer cells, we de- 
fine the routine [X20 of the routine] in terms of the 
function it performs: REPLACE THE SYMBOL IN H5 BY J3 . 
(This definition (DSCN) resembles more closely than the 
previous one the manner in which routines are defined 
for "conventional" compilers like FORTRAN or LISP. What 
distinguishes the present scheme from these is the use 
of heuristic means -end analysis for working from the 
definition to the compiled routine.) 

The first step in the DSCN Compiler [U134] is to 
search a list of available (compiled) routines to find 
one whose DSCN is as similar as possible to the DSCN of 
the routine to be compiled. In the case at hand, we 
would find the routine P2(C) : REPLACE THE SYMBOL IN C 
BY (HO) . 

At the second step [U130] , means-end analysis is 
performed to transform the compiled routine that has 
been found into the new routine. The transformations are 
performed on the DSCN's. Thus, in the present example, 
there are two differences between P2(C) and J3. The 
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former refers to the cell C, the latter to H5; the former 
refers to the symbol that is contained in cell HO, the 
latter to the symbol J3. 

The compiler notices these differences (in a sequence), 
and searches for an operator relevant to removing the dif- 
ferences. In this case, C can be transformed to H5 by 
a substitution operator. (HO) can be changed to J3 by 
an addition operator (MAKE! (H0)=J3 BY ADDITION). The 
application of these operators to the DSCN of P2(C) would 
compile the desired routine in the following stages: 

P2(C) REPLACE THE SYMBOL IN C BY (HO). 

Apply subst itution 

REPLACE THE SYMBOL IN H5 BY (HO) . 

Apply addition 

REPLACE THE SYMBOL IN H5 BY J3 . 

The resulting program in this case is identical with 
that obtained by the SDSC Compiler. 

A somewhat more complex routine compiled by the DSCN 
Compiler is: 

J13: INSERT (1) AT THE END OF (THE VALUE OF ATTRIBUTE 
(0) OF (2)). 

The list of available IPL routines includes: 

J65: INSERT (0) AT THE END OF (1). 

The differences between J65 and J13 are in their 
arguments . J65 has the argument (0) , where J13 has the 
argument (1); J65 has the argument (1), where J13 has 
the argument (THE VALUE OF ATTRIBUTE (0) OF (2)). Since 
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it is not easy in IPL-V to rearrange arguments that are 

located in the pushdown list of the communication cell, 

HO, the compiler facilitates matters by incorporating in 

the compiled routine an algorithm that moves the inputs 

of the routine to be compiled into known working storage 

locations, then puts these inputs back into HO in the 

order in which they are needed for the subprocesses . That 

is, the compiler first transforms J13 into another routine, 

call it K13, which it then compiles. The DSCN of K13 is: 

K13: INSERT 1W1 AT THE END OF THE VALUE OF 

ATTRIBUTE 1W0 OF 1W2. 

The code for J13 may be written as: 

J13 J52 
K13 

J32 0 . 

Now K13 is to be compiled with the aid of J65. Com- 
paring the corresponding arguments of the two routines , we 
see that this involves finding the value of attribute 1W0 
of 1W2, placing this value in HO, bringing 1W1 into HO, 
and then performing J65. That is to say, K13 will have 
the general form: 

K13 FIND V(1W0,1W2) 

11W0 
J65. 

In the list of available routines, the compiler finds: 
J10: FIND THE VALUE OF ATTRIBUTE (0) OF (1), 
which may be abbreviated, FIND V((0),(1)). Comparing the 
arguments of J10 with V(1W0,1W2), we see that (1) must 
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be set equal to 1W2 and (0) to 1W0. Hence, V(1W0,1W2) 
is equivalent to 

11W2 
11W0 
J10. 

Hence, the complete code for K13 is: 

11W2 
11W0 

J10 
11W1 

J65, 

and the complete code for J13 is simply: 

J13 J52 
11W2 
11W0 

J10 
11W1 

J65 

J32 0 . 



THE GENERAL COMPILER 

The General Compiler [U135] is an executive routine 
whose task is to compile a routine from information in 
any of the forms already discussed (SDSC and DSCN) or in 
other forms that may be described. It takes as its input 
the name of the routine to be compiled. Associated with 
this name (on its description list) is the information to 
be used in the compilation. More formally: 

A routine is a description list containing values of 
some subset of the following attributes : 

1. IPLN-- IPL name [X25] . The value of this attribute 
is a description list that names a region 
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[X33] and a location [X34] in the region; 
e.g., J60, R149, J3. 
JDEF-- IPL-V definition [X22] . The value of this 
attribute is a list of IPL-V instructions, 
each in the form of a description list 
describing [attributes X40-X46] the cor- 
responding IPL-V word, that defines an IPL-V 
routine with the specified name. For example 
the routine with IPLN J3 might have the 
following JDEF: 

J3 10J3 

20H5 0 . 

DSCN- - Descriptive name [X20] . The value of this 
attribute is an imperative sentence (en- 
coded as a list structure) that describes 
[with attribute X30,X31] the process defined 
by the JDEF. For example, the routine with 
IPLN J3 has, as already explained, the DSCN: 
REPLACE THE SYMBOL IN H5 BY J3. 

SDSC-- State description [X240] . The value of 
this attribute is a list structure that 
describes the state of the IPL computer 
before and after the routine in question 
has been executed. Only changes are men- 
tioned explicitly. Thus the SDSC of J3 is: 
H5: S1,R0. J3,R0. 
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FL WD- -Flow diagram [X267] . The value of this 
attribute is a list structure that gives 
the flow diagram corresponding to the JDEF. 
This list structure will be described in 
more detail later. 

ASOJ-- Associated J definition [X23] . The value 
of this attribute is the I PL name of a 
routine associated, in a manner to be 
described later, with a given routine. 



A compiled routine is a routine that has a JDEF. 
Now we can state the problem of compiling a routine as 
follows : Given a routine without a JDEF (the present 
object), find the corresponding routine with a JDEF (the 
goal object). "Corresponding" means that the compiled 
routine has the same SDSC or DSCN as the given routine. 
Figure 1 presents the flow diagram of a compiler [U135] 
that uses means-end analysis to accomplish this compilation. 



1. 


Test if 


the 


Routine 


Has 


JDEF 





3. 



Exit, 
Compiled 



Find Closest 
Definition 
[U136] 



Find and 
Apply Relevant 
Process [U136] 



Exit, 
Failed 



Test 

Progress 

[U138] 



Fig. l--Flow Diagram for: COMPILE ROUTINE Rl 
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Let us translate this flow diagram into the language 
of means-end analysis. 

1. Test if the routine has JDEF . This test determines 
whether the present object has the characteristics 
of the desired object. If so, the compilation 

is complete. 

2. Find the closest definition [U136] . This process 
corresponds to finding a difference between 

the present and desired objects. However, we 
generalize this notion to mean look for a charac - 
teristic of the present object that will suggest 
a relevant operator. If the object possesses a 
DSCN, then an attempt could be made to compile 
the JDEF from the DSCN; if it possesses a SDSC, 
an attempt could be made to compile the JDEF 
from the SDSC. The attributes that the routine 
could possess are listed in an order that reflects 
the relative ease of compiling a JDEF from them. 
The process then finds the first attribute on 
this list that the routine to be compiled pos- 
sesses. In the present form of the compiler, it 
is assumed that it is easier to compile from a 
DSCN than from a SDSC; hence, the attributes are 
listed in this order. If the routine possesses 
no attribute that can be used as a basis for 
compilation, the compiler reports a failure. 
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3. Find and apply the relevant process [U137] . The 
input to this process is the "closest definition" 
that has just been found. A table of connections 
is searched to find a process that is relevant 

to compiling the JDEF from the closest definition. 
If one is found, it is applied (in a manner to 
be described later) . 

4. Test progress [U138] . If the operator has been 
applied successfully, the routine will now possess 
at least one attribute (a JDEF or another) it 
didn't previously possess. If the progress test 
detects that it now has a definition closer to 
the JDEF than any it had previously, it initiates 
a new compilation cycle; if not, it reports a 
failure and quits . 

The present list of "closest definitions" is very 
short, consisting only of DSCN and SDSC. The present 
table of connections [X198] is also brief: 

1. If the routine possesses a DSCN, apply the oper- 
ator, COMPILE JDEF FROM DSCN. 

2. If the routine possesses only a SDSC, apply the 
operator, COMPILE JDEF FROM SDSC. 
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IV. RELATION OF THE HEURISTIC COMPILER TO GPS 

Since each of the major components of the Heuristic 
Compiler is a system of means-end analysis, each of these 
components can be viewed as a rudimentary GPS. It should 
therefore be feasible, by modifying the top-level programs, 
to bring the Heuristic Compiler into a form that would 
allow its problem- solving processes to be governed by GPS. 
The programs for detecting differences, the tables of 
connections, and the operators would provide definitions 
of task environments for GPS. To accomplish this, GPS 
would have to be arranged so that a subproblem could be 
attached by applying GPS to a new task environment. That 
is, GPS would first be applied to the task environment 
of the General Compiler; applying an operator in this 
environment would consist in applying GPS to the task 
environment of the DSCN's or the SDSC's, as the case may 
be. 
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V. FLOW DIAGRAMS 

Up to this point, we have considered only very simple 
programs , requiring no branches or loops . Each program 
is a list of instructions; each instruction is an IFL word 
represented as a description list with the attributes 
type [X40], name [X41], sign [X42], P [X43] , Q [X44] , 
symbol [X45] , and link [X46] . 

To represent a program with branches and loops, we 
divide the program into segments. Each entry point to a 
loop (an instruction with a local name) begins a new seg- 
ment; each branch instruction (P = 7) ends a segment. Each 
segment has the same attributes as an IPL word--specif ically : 
name, P, symbol, link, and an additional attribute [X22] , 
whose value is the list of IPL instructions for the segment. 
The name of the first instruction of the segment is assigned 
as the name of the segment; if the segment ends in a 
branch instruction, it is assigned P=7 , and its symbol and 
link are set equal to the symbol and link of the branch 
instruction. If the segment does not end in a branch, it 
is assigned P = 0 and SYMB = 0, and its LINK is set 
equal to the link of its last instruction. Under these 
conventions, the list of segments is a flow diagram of 
the routine with the detail of the routine segments 
appended. 
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To illustrate the format of a flow diagram, we show 
below the code for IPL routine J77, followed by its flow 
diagram. The DSCN of J77 is: TEST IF THERE IS A SYMBOL 
EQUAL TO (0) ON LIST (1) . 

IFL-V CODE FOR J77 



J77 


J50 


90 


90 


J60 
7091 


92 


92 


12H0 
11W0 
J2 
7090 


91 


91 


30H0 
J30 


0 



Segment I : Put (0) in WO. 

Segment II : Find next 
location on list (1). 

Segment III : Test if 
symbol at location is 
equal to (0) . 



Segment IV : Clean up 
and exit. 



FLOW DIAGRAM FOR J77 



J77 


0 




90 


90 


7 


91 


92 


92 


7 


90 


91 


91 


0 




0 



From the description of the flow diagram, it is easy 
to provide a program [U139] that will construct a flow 
diagram from an IPL routine, and a program [U133] that 
will compile an IPL routine from the flow diagram and 
appended code segments. In this way the task of compiling 
an IPL routine is reduced to the problem of compiling its 
flow diagram, and compiling the code for each of the 
segments of the flow diagram. 
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The program for compiling such a routine from its 
DSCN has not yet been written, but examination of the 
structure of the routine itself shows what is involved. 
The test involves a quantif ier--whether there exists a 
symbol with a certain property on a particular list of 
symbols. In IPL-V, such existence tests are performed by 
means of a loop or a generator; the members of the set in 
question are produced one by one and tested for their 
possession of the property. If a test result is positive, 
the process stops, and the signal, H5, is set plus. If 
the set is exhausted, the signal, H5, is set minus. Thus, 
a standard flow diagram can be used for all routines of 
this kind: 

A Perform required setup. 

B Locate another member of set 

(if none, exit, via D). 
C Perform test on member 

(if it succeeds, exit, via E; 
if it fails, return to B), 
D Exit with signal minus. 
E Exit with signal plus* 

Except for the provision of two distinct exits, this 

is identical with the flow diagram previously shown for 

J77 (Set A « J77, B = 90, C - 92 , D - E - 91) . Now, we 

can compile for each segment of the flow diagram a routine 

that corresponds to the DSCN of that segment. For example, 

FIND ANOTHER MEMBER OF (1) becomes J60 (after appropriate 

recognition of the changed location of (1)); PERFORM TEST 

ON MEMBER becomes : 
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12H0 
11W0 
J2 . 

The only complications lie in moving the inputs for 
the various processes (J60 and J2) in appropriate ways. 
The compiler can do this in a straightforward, if inef- 
ficient, way by using the working storages. Thus, an 
unedited compiled version of J77 might look like this: 

J77 J51 90 

90 11W1 

J60 
20W1 

7091 92 

92 12W1 
11W0 

J2 

7090 93 

91 J31 0 

93 J31 0 . 

The same flow diagram would be used in the compilation 
of J62: LOCATE ON (1) AN X SUCH THAT C(X)=(0) . In fact, 
this routine is identical with the one just discussed, 
except that it requires llWl before the exit. It should 
be observed that the indefinite article "an" plays the 
same role in the DSCN of J62 as the quantifier "there is 
a" in J77. The compiler, therefore, would be provided 
with the knowledge that the above flow diagram, using J60 
in the second segment, is the appropriate means for trans- 
lating this quantifier. 

Declarative and interrogative sentences in a DSCN 
correspond to tests in the compiled routine. Thus, the 
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phrase, "such that C(X)=(0)," leads to the question, 

"Does C(X) equal (0)?" and thence to the test J2(C(X) , (0)) . 
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PART II 

GENERAL IMPLICATIONS FOR REPRESENTATIONS 

Our examination of flow diagrams has already led us 
to consider how some syntactical devices of English (e.g., 
the definite and indefinite articles) are to be rendered 
in the compiler. In this part, we raise at a more general 
level the question of the syntactical flexibility and range 
of the compiler languages. In Sec. VI, we ask what forms 
of English expressions are handled naturally and simply 
by the DSCN and SDSC languages, respectively. In Sec. VII, 
we ask how we would go about formalizing the notion of 
representation so that a problem- solving compiler could 
be given the task of designing its own representations. 
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VI. LANGUAGE AND REPRESENTATIONS IN THE COMPILER 

We can ask appropriately about any compiler, "What 
range of source statements can it accept?" In Part I, 
we have discussed two kinds of source statements, DSCN's 
and SDSC's. Let us now consider in a little more detail 
the range of English- language expressions that these 
compilers can handle. We take up the language of de- 
scriptive names and the language of state descriptions in 
turn. 

DESCRIPTIVE NAMES 

The DSCN's are particularly interesting because 
they take the form of English sentences --imp era t ives , or, 
as we have just shown, declaratives and interrogatives . 
How restricted is the language of DSCN's in relation to the 
whole class of grammatical English sentences? 

Consider the sentence, "What is the color of that 
apple?" The answer might be, "It's color is red," or 
even, "It is red." In the original sentence, "that 
apple" denotes a particular object; "the color," an 
attribute of that object; and "what," the unknown value 
of the attribute. In the replies, "it" denotes the same 
object as "that apple"; "red," the (now known) value of 
the attribute. Thus, we might represent the question and 
the first answer, respectively, as: 
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? = Color (that apple) 
Red - Color (it). 
The second answer can be interpreted as synonymous with 
the first if we stipulate that "red" can be a value only 
of the function "color." 

The process in IPL-V that provides the answer to such 
questions is J10: FIND THE VALUE OF ATTRIBUTE (0) OF (1). 
In terms of our example , this is : "Find the value of 
attribute 'color' of that apple." Thus, the process that 
answers the question takes two inputs- -the names of the 
attribute and the object--and produces the value as its 
output. It defines a function, in the mathematical sense 
of the term. In the statement of the process, "attribute" 
is in apposition with "color," the former term specifying 
the genus to which the argument belongs. We could equally 
(though not quite grammatically) have said, "of the object, 
'that apple." 1 Likewise, the phrase, "Find the value of 
the color," is synonymous with, "Find the color," "value" 
being in apposition with the (implicit) "?". That is, in 
English, we abridge, "The value of the attribute, the 
color, of the object, that apple, is red," to, "The 
color of that object is red," or, "That object is red." 
We can do this because "color" is an attribute, "that 
apple" is an object, and "red" is a value- -nothing is 
added to meaning by making these classifications explicit. 
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Th is example shows how, in general, we can handle 
a wide class of grammatical forms within the framework 
of the DSCN's. Interrogatives are unknowns, like the 
x's of algebra, whose genera may be specified, in part 
or full, to identify them. The couple "the ... of ..." 
signals a determiner - -a phrase that names something by 
giving enough of its properties to tag it uniquely. 
Pronouns (e.g., "it") and pronominal adjectives ("that") 
identify by reference to terms that have occurred in 
previous sentences. "Find" is a general process that re- 
places a determiner by the object determined. Appositive 
phrases and relative clauses provide additional identifi- 
catory information about the object to which they refer. 
Adjectives, adverbs, prepositional phrases (other than 
"of" phrases), and adjectival nouns have the same function- 
identification or description. Quantifiers ("there is," 
"all," "a," "some," etc.) require special treatment- 
several of them have already been discussed. 

The present DSCN Compiler was constructed specifically 
to handle verbs (processes) , determiners (especially 
those involving "the ... of ..."), and proper names (in 
IPL-V these are always locations). Essentially, what 
the compiler does is replace determiners by the appropriate 
proper names, using the FIND processes for the compilation. 
In the previous section, we indicated how loops and flow 
diagrams could be used to handle quantifiers and con- 
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junctions, including "and," "but," and "if ... then." 
Pronouns could be handled in a manner similar to that 
used for determiners. Appositive and modifying words, 
phrases, and clauses could be used as aids in identifying 
proper names. It appears that with these extensions, the 
DSCN format would encompass most of the forms of gram- 
matical English sentences. Only programming, of course, 
can determine to what extent this claim is correct. 

STATE DESCRIPTIONS 

Just as the DSCN language admits of considerable 
flexibility in representing English sentences, so the 
SDSC language admits of broad flexibility in the repre- 
sentations of information in the computer. This flexi- 
bility is achieved by using description lists as the 
holders of information. Each computer address that is 
referred to in the SDSC is represented by a cell having 
a description list. On the description list are the 
attributes NAME, TYPE, P, Q, SIGN, SYMBOL, LINK- -i.e. , 
precisely the attributes that name the fields in an IPL 
word (and the name of that word) and that appear on the 
coding sheet. Since the SDSC makes these attributes 
explicit, the program that uses the SDSC's need not be 
provided with this information in any format more special- 
ized than the description list format itself. Moreover, 
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additional attributes and their values can be added, ad 
lib, to the description list. 

By introducing attributes that refer to a particular 
machine representation of IPL, the SDSC language is 
readily extended to admit statements about the relation 
between IPL and its particular representations. For 
example, suppose the fields in the words of a particular 
computer were designated by the attributes DECREMENT, 
ADDRESS, etc. We could then define a machine language 
representation of IPL by setting up appropriate corres- 
pondences between IPL attributes and machine language 
attributes. (For example, we might specify SYMB = 
DECREMENT, LINK = ADDRESS, etc.) We shall indicate in 
the next section how this technique can be used to give 
the Heuristic Compiler the capability of designing ap- 
propriate representations- -hence, how the compiler itself 
might choose an appropriate machine language representation 
of IPL prior to undertaking the task of compiling IPL 
into a machine language program. 

There is also no necessity in SDSC that each de- 
scription list should give the description of the contents 
of a single computer address. Alternatively, it may 
describe a whole list. Suppose, for example, we wish to 
represent the fact that the symbol in cell H5 is J3, and 
that H5 is linked to a pushdown list having unknown con- 
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tents. All of this information can be given in two de> 
scription lists : 

1. NAME SYMB LINK KIND OF OBJECT 

H5 J 3 RO Pushdown cell 

2. NAME KIND OF OBJECT 

RO List 

We have already illustrated how this flexibility 
is used to represent segments of instructions in flow 
diagrams . 
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VII. THE DESIGN OF REPRESENTATIONS 

One distinction between the restricted, relatively 
simple tasks we call "coding," and the broader, more 
difficult tasks we call "programming," is that the latter 
may encompass the selection or design of an appropriate 
problem representation, while the former do not. Our 
discussion of languages now enables us to see what is 
involved in the design or selection of a representation, 
and what we would need to do in order to give the Heuristic 
Compiler the capacity to grapple with such design and 
selection tasks. To illustrate this point, we shall take 
an example of a representation problem within the struc- 
ture of IPL-V itself. 

Let us suppose that we had an operating "basic" 
IFL system, quite like the language defined in the IPL-V 
Manual, except that the description list processes were 
omitted. We now give a programmer the task of intro- 
ducing description lists into the language, using the 
basic system itself to define them, without writing any 
new machine code. 

What do we mean by "introducing description lists"? 
We mean that we wish to be able to associate with the 
name of an object (which in IPL is always an address) a 
description of that object. The description consists of 
a set of pairs: one member of each pair is an attribute; 
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the other member of the pair is the value of that attri- 
bute for the object to which the description belongs. 
Moreover, we wish to be able to store and retrieve de- 
scriptive information about objects. That is, we wish to 
be able to add new pairs to descriptions, and when we are 
given the name of an object and an attribute, we wish to 
be able to find the value of that attribute for that 
object. Stated formally: 

With every object we associate a set of pairs, 
(B.,C). The number of pairs is to be arbitrary and 
variable, and we want a process that will answer questions 
of the form: ? - (A i ) . 

How could a programmer solve this problem? By the 
basic conventions of IPL-V, "object" already means 
"address." Thus, he must find some way of associating 
a set with each address. Again, in IPL, the standard 
way to represent a set is by a list . The question then 
becomes, "What list can we associate with an address?" The 
basic relations that are represented in IPL-V are CONTENT 
OF and NEXT. The CONTENT OF a cell is the SYMB of that 
cell, and the NEXT of the cell is its LINK. Moreover, 
basic processes exist for FIND CONTENTS (P = 1, Q - 1) 
and FIND NEXT (J60) . Thus, the set we associate with an 
address can be taken to be the list whose name is the 
SYMB (or, alternatively, the LINK) at that address. Let 
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us call this list (pursuing the first alternative) the 
description list associated with the address. 

We must next define a format for description lists 
that will represent the pairing of attributes and values. 
One method would be to associate a pair of words with 
each element of the description list, again using the 
relations CONTENT and NEXT. Thus, if Sj is the content 
of the j number of the description list, we could de- 
fine Bj - CONTENT OF Sj , and C^ = CONTENT OF NEXT OF Sj . 
(This is substantially the representation that was used 
in an earlier version of IPL. An even simpler represen- 
tation would make C^ = LINK OF Sj .) Now, to add a pair, 
Bj , C^ , to the description list of we add a cell to 
the description list, assign it a SYMB (Sj), assign B.. 
as the SYMB of Sj , and assign C^ as the SYMB of the LINK 
of Sj . Similarly, if we are given A^ and B.. , to find C^j , 
we first find the description list, CONTENT OF A^, and we 
go down this list comparing Bj with the CONTENT of the 
CONTENT of each location on the list. When we obtain a 
match, we find the CONTENT of the cell next to the matched 
cell, and this is the desired value. These processes 
follow from the representation. 

An alternative representation is obtained by dividing 
the members of the description list into two subsets — its 
ODDS and its EVENS. We then take the ODDS as the attributes; 
the value of an attribute is simply the EVEN that follows 
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it. These definitions, again, make use only of the 
relations CONTENTS and NEXT. Thus, an ODD of a list is 
the FIRST of the list or the NEXT of the NEXT of an ODD. 

This definition allows us to construct a loop that 
will find, in sequence, all the attributes on the list. 
Given the location of an attribute, a FIND CONTENTS OF 
NEXT finds its value. This representation is, of course, 
the one actually adopted in IFL-V. 

It will be instructive to see what the program for 
J10; FIND THE VALUE OF ATTRIBUTE (0) OF (1), looks like 
in each of these representations. We write the two pro- 
grams side by side: 

J10 J51 J10 J51 

12W1 12W1 Find description list. 

92 J60 92 J60 

7090 7090 
60W1 60W1 

52H0 52H0 Find next attribute. 

12H0 11W0 

11W0 J2 Test if it is equal to (0). 

J2 7091 

7091 11W1 

J60 J60 If so, find value. 

52H0 J31 52H0 J31 

91 30H0 91 11W1 lift. 

11W1 92 J60 92 Proceed down description/ 

90 30H0 J31 90 30H0 J31 Exit, attribute not 

found. 

We see from this example that designing a suitable 
representation amounts to finding an isomorphism. A 
"description" was defined in terms of certain elements 
(objects, attributes, values), relations between elements 
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(e.g., the attributes of an object), and processes (e.g., 
FIND THE VALUE OF (0) OF (1)). The programmer had to 
find a set of elements, relations, and processes defined 
in IFL-V that were isomorphic with the required elements, 
relations, and processes. I have not worked out how such 
a search could be automated, but the main requirements 
are clear. In particular, to enable the Heuristic Compiler 
to perform this search, it would have to be provided with 
lists of the available elements, relations, and processes, 
or it would have to be able to recognize such things 
when they were described in the DSCN or SDSC languages. 
For example, it would have to recognize that every deter- 
miner (e.g., "the ... of ...") defines a relation. 

As a second example of what is involved in designing 
a representation, let us consider the representation of 
IPL-V words in SDSC. Since each word consists of a number 
of symbols belonging to different fields, we can again use 
the description list format, in which we equate "field" 
with "attribute" and "symbol in field" with "value of 
attribute." But the symbols in the NAME, SYMB, and LINK 
fields themselves contain encoded information, for they are 
in the form ANNNN, where A is an alphameric symbol, and 
NNNN is a number. Hence, we represent each of these 
symbols by an object with a description list containing the 
attributes REGION and LOCATION. The value of REGION is 
the alphameric symbol A; the value of LOCATION, the 
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number NNNN. Therefore, the information that a "local 
symbol" is one with A = 9 can be represented. Again, the 
lesson here is that we must create an isomorphism between 
the elements of the representation, their relations, and 
the structure to be represented. 

Suppose, as a third example, that we set ourselves 
the task of writing a program to sort a bridge hand. To 
accomplish this task the meanings of "sort" and "bridge 
hand" must be known. A bridge hand is a set of (13) 
elements, each characterized by a primary characteristic, 
suit (4 possible values), and a secondary characteristic, 
denomination (13 ordered values) . Sorting means ordering 
a set of elements by one or more characteristics, taking 
account of the ordering of values where this is defined. 

In this case we find a straightforward isomorphism: 
Each element in the bridge hand is to be represented by 
an object having a description list with attributes SUIT 
and DENOMINATION. A sorted bridge hand is to be represented 
by a list of such elements, with the ordering of the list 
to correspond with the ordering of the sort. It now 
becomes a straightforward (if difficult) compiling job 
to write a SORT routine that will produce a list with 
these properties. Moreover, if it is done correctly, it 
should be possible to write the routine in the generalized 
form: SORT (0) IN FORMAT (1), where (1) enumerates the 
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attributes, their ordering, and the orderings of the 
values that define the sorted object > 

We shall explore this particular scheme in more 
detail in Sec. VIII of Part III. Perhaps enough has 
been said here to demonstrate that selecting or designing 
a representation is a problem-solving task that can be 
attacked with the same general kinds of heuristic tech- 
niques as other problem- solving tasks. 
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PART III 

EXPERIMENTS WITH REPRESENTATIONS 

In Part III, we propose some extensions of the 
Heuristic Compiler, most of which are motivated by lin- 
guistic considerations. In particular, we explore some 
methods for enabling the compiler to handle input state- 
ments in forms that are close to natural language. 

There are a number of important respects in which 
natural languages differ from the usual programming lan- 
guages. We shall be especially concerned with three of 
these differences: 

1. In natural languages, the word is the most im- 
portant unit of meaning. (For the moment, we do not 

need to distinguish among "word," "morpheme," and "idiom.") 
In most computer languages, the sentence (usually an imperative 
sentence, called an "instruction") is the basic unit of 
meaning. Thus, if a person understands, separately, the 
verb "sort," and the noun phrase "bridge hand," he can 
probably obey the instruction, "Sort the bridge hand." 
In most computer languages, a compiler would not be able 
to assemble, "Sort a bridge hand," from "sort" and "bridge 
hand," but would have to be provided with a number of 
specialized sort routines. 

2. In natural languages, most communication makes 
use of sentences in the indicative or declarative mode. 
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In computer languages, most sentences are in the imperative 
mode. Computer languages are primarily languages of 
command, and not languages of information, description, 
or advice. 

3. In natural languages, many alternative sentences 
can be phrased that "mean" about the same thing. The 
recipient of a natural -language communication is able to 
decode the communication without too much concern for 
details of format. In computer languages, there are various 
harassing constraints on format. Failure to observe 
these constraints usually causes an error condition. 

These differences are, of course, differences of 
degree and not of kind. Moreover, research on computer 
languages over the past decade has already made sub- 
stantial progress toward decreasing or erasing them. Basic 
processes have become more general and parameterized; 
various forms of declarative statements have been intro- 
duced; compilers have been designed to accept relatively 
informal input statements. The gap, however, between 
natural language and computer languages is still large, 
and annoying to those who are engaged in man-machine 
communication . 

We are here concerned with extensions of the 
Heuristic Compiler directed towards reducing these 
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differences.* Section VIII indicates how generalized 
processes (verbs) can be introduced into the DSCN 
Compiler. Section IX describes subroutines for storing 
and retrieving descriptive information in declarative 
sentences. Section X describes an approach toward 
natural -language flexibility in input statements for the 
SDSC Compiler, making use of the descriptive information 
provided by the techniques of Sec. IX. 



The thinking reported here, particularly in Sections 
IX and X, was greatly stimulated by the work of Robert 
K. Lindsay, "The Reading Machine Problem" (Unpublished 
Ph.D. Thesis, Carnegie Institute of Technology, 1960), 
which has been revised as Toward the Development of a 
Machine Which Comprehends , University of Texas, Austin, 
May 1961. I owe a great deal also to stimulating dis- 
cussions with Hugh Kelly and Allen Newell of The RAND 
Corporation and Carnegie Tech, respectively. 



-44- 



VIII. GENERALIZED PROCESSES 

We shall consider two classes of processes: one 
designated by the verb "find," the other by the verb 
"sort." 

"FIND" PROCESSES 

The possible interpretations of FIND are numerous to 
the point of being meaningless. Any routine that takes 
some symbolic structures as inputs and produces one or 
more other structures as outputs may be called a process 
for "finding" the latter. Thus: FIND SINE A, FIND THE STATE 
DESCRIPTION OF ROUTINE K, FIND THE PROOF OF THEOREM T. 
From this point of view, a program like the General 
Problem- Solver is simply a fairly general FIND routine. 

Hence, any routine flexible enough to interpret 
correctly the verb "find" wherever it occurs in normal 
English prose, would have to make considerable use of 
context. In the present section we shall aim at a lesser 
degree of flexibility. Consider the two classes of 
processes typified by: 

FIND THE state description OF routine K, and 

FIND A ON 

The first example designates an object associated 
in a particular way with a specific object, K. In IPL-V 
there is provided a special format, the description list, 
for holding such information in memory, and a set of 
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processes, JlO to J16, for entering and retrieving the 
information. Section IX examines definite descriptions 
of this special kind at length. In the present section, 
then, we shall limit ourselves to the verb "find" as it 
occurs in instructions like, FIND A ... ON and FIND 

THE ... ON ... . Even this scheme covers a considerable 
variety of processes : 

FIND A symbol, S10, ON list L. 

FIND AN object whose type is A4 ON list structure L. 

FIND THE third symbol ON list L. 

FIND THE largest integer data term ON the lists 
of listTV 

In the first two examples, the indefinite article 
indicates that the object sought is not necessarily unique; 
in the last two examples it is. In the first two examples 
the properties that define the object sought are absolute -- 
their presence or absence can be ascertained without 
reference to other objects. In the last two examples, the 
properties are relative ; and indeed, in the fourth example, 
the entire set of objects must be examined before the one 
sought can be identified. In the first example, the 
object sought is designated by proper name (and the infor- 
mation is added that it is a "symbol"). This example 
can be approximated to the others by rephrasing it: FIND 
A token equal to S10 ON list L. 
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With these preliminaries out of the way, we shall 
describe in detail a rather general FIND process. The 
object sought will be specified by some sublist of the 
symbols on the pushdown list of the communication cell, 
HO. The specification of the place to be searched will 
be given by other symbols on that pushdown list. Hence, 
we can symbolize the desired process: 

FINDAF 1 [(0), (l),...,(k)] IN F 2 [(k+1), (k+2) , . . . , (n) ] , 
where (0), (1), etc., designate, as usual, the symbols 
on the pushdown list of HO. 

We suppose that the compiler is provided with a 
lexicon that contains, among others, the words "FIND," 
"F 1 [ 3," and "F 2 [ ] ." The lexical entry for each 
of these is a description list containing, for "FIND" 
and "F 1 ," the attribute IPL ROUTINE , and for M F 2 ," the 
attribute TYPE OF OBJECT. 

The IPL ROUTINE associated with FIND in the lexicon 
will contain certain variables, to be replaced by constants 
derived from an examination of F^ and F 2 • We will first 
present the routine, as it would appear in the lexicon, 
and then explain the meaning of certain of the symbols 
in it. 



90 



FIND 



J5n 
HW(n-k) 
1090 

GEN (Ft ,F~) 

J5 1 Z 
4 OHO 
HWk 

TEST(F-j) 



J3n 



7090 



J8 
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As previously indicated, k is the number of arguments 
in , ( n-k ) the number of arguments in F 2 , and n the 
number of arguments in the two functions taken together. 
Thus J5n preserves WO to Wn and moves all the arguments 
of F x and F 2 into the W's; J3n restores WO to Wn. The 
instruction llW(n-k) brings into HO the arguments of F 2 , 
while HWk brings in the arguments of F-^ The numbers k 
and n-k are to be determined, of course, by examining F^ 
and F 2 . The variable, GEN(F 1 ,F 2 ), is to be replaced with 
a generator obtained from the lexical entry for F 2 , while 
TEST^) is to be replaced with a test associated with 
the lexical entry for F^ . All the other symbols have their 
usual IFL-V meanings. 

We can now compile FIND A F 1 IN F 2 as follows: 

1. Get IPL ROUTINE of FIND. 

2. Supply values for k, n, and n-k where required. 

3. Make list of subroutines required (GEN(F, ,F 2 ) , 

TESTCF^). 

4. Get the IPL ROUTINE of TEST, supply it with its 

arguments, and insert it in the IFL-V 
code for FIND. 

5. Get TYPE OF OBJECT of F 2 , and get the associated 

GEN for that type in the dictionary of 
generators ; insert it in the IFL-V code 
for FIND. 

A word may be added to this account to indicate how 
relative properties are handled in FIND THE THIRD 
or FIND THE LARGEST. In these cases, the test needs to 
be based on a recursive process — in the case of FIND THE 
THIRD a counting process; in the case of FIND THE 
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LARGEST . .., a process that resets LARGEST SO FAR equal 
to the larger of LARGEST SO FAR and the current integer. 
The test--the function F^--would, in these cases, make 
provision for storing in the W's the intermediate products 
of calculation. 

"SORT" PROCESSES 

As our second essay toward generalized processes, we 
take the verb "sort." Suppose that the objects we wish 
to sort are description lists. It is easy to construct a 
general routine, SORT (0) ON (1), where (0) is the list 
of objects to be sorted and (1) is a specification of the 
attributes, their ordering, and the order ings of attribute 
values on which the sorting is to be based. Thus, if (0) 
were a list of description lists representing the cards 
in a bridge hand, (1) would specify that the attributes 
are suit and denomination (in that order) , that the suit 
values are S,H,D,C, in that order, and the denomination 
values A,K,Q,J,10,9, etc., in that order. A further step 
toward generalization would allow the sort routine to be 
compiled from a definition of the collection of objects 
to be sorted. Let us see how this can be done when the 
object to be sorted is a bridge hand. First, we store in 
memory description lists providing information about the 
terms LIST, DESCRIPTION LIST, and ATTRIBUTE: 
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LIST 



TYPE: 

ATTRIBUTES 



Class of objects 
Type of members 



DESCRIPTION LIST 
TYPE: 

ATTRIBUTES 



Class of objects 
Attributes 



ATTRIBUTE 



TYPE: 
ATTRIBUTES 



Class of symbols 
Values . 



That is to say, a list is a class of objects; the 
description list for any class of objects of type LIST 
will have the attribute CLASS OF MEMBERS. A description 
list is also a class of objects; the description list for 
any class of objects of type DESCRIPTION LIST will have 
the attribute ATTRIBUTES. An attribute is a class of 
symbols; the description list for any class of objects 
of type ATTRIBUTE will have the attributive VALUES. 

Next, we store in memory description lists providing 
information about the terms BRIDGE HAND, CARD, SUIT, and 
DENOMINATION. 

BRIDGE HAND 



TYPE: 
MEMBERS : 



List 
Cards 



CARD 



TYPE: 

ATTRIBUTES : 



Description List 
Suit, denomination 



SUIT 



TYPE: 
VALUES : 



Attribute 

Spade, hearts, diamonds, clubs 



DENOMINATION 
TYPE: 
VALUES : 



Attribute 



A,K,Q,J,10,9,8,7,6,5,4,3,2 
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Now we can compile SORT THE BRIDGE HAND (0) , as 
follows: From the information just stored, we find that 
BRIDGE HAND has the type LIST. From LIST, we find that 
BRIDGE HAND will have the attribute TYPE OF MEMBERS. 
Finding the value of this attribute, we determine that 
the members of bridge hands are cards . CARD is a 
description list, which has the attribute ATTRIBUTES. 
The attributes of cards are suit and denomination. We 
would therefore compile the sort routine to sort on suit 
and denomination, in that order of priority. Examining 
the values of these two terms, in turn, we find the order 
in which these values are to be arranged in sorting. 

If it were known to the program that a bridge hand 
is a list of description lists, then the sorting routine 
could obtain the information about attributes and values 
by direct examination of one or more examples of a 
sorted bridge hand, and without being given the informa- 
tion about CARD, SUIT, or DENOMINATION explicitly. If 
the examples were not too special (e.g., a hand of 
thirteen spades), the program could determine what 
attributes a card possessed, which of these was relevant 
to the sorting, the hierarchy of attributes, and the 
ordering, if any, of the values of each. This information 
could then be used to compile the specific sorting routine 
required. 
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Thus, we see that the key to providing a generalized 
routine for a verb like SORT lies in providing syntactically 
or semantically the information needed to supply the 
routine with the parameter values it requires. This can 
be accomplished (syntactically) through a scheme of 
declarative sentences that describe the objects under 
consideration; or (semantically) by providing examples 
that can be analyzed. Moreover, the description itself 
can be generated inductively from examples. 

The description that would allow compilation of the 
"sort" routine could also be used to compile TEST IF X IS 
A BRIDGE HAND. Thus, storing descriptions of classes of 
objects is an important means for factoring sentence 
meanings of nouns and verbs, respectively. It provides 
a powerful basis for introducing general processes. 

RECURSIVE FUNCTIONAL LANGUAGES 

Consider an instruction language consisting of a 
set of functions each admitting as arguments the values 
of functions of the set. Each of the functions can be 
regarded as a FIND ins true t ion- - i. e. , FIND THE VALUE OF 
F FOR THE GIVEN ARGUMENT VALUES. It may be executed 
recursively by finding, first, the values of each of its 
arguments, then using these to compute the value of the 
function. Hence, the interpreter of such a language may 
itself be regarded as a generalized FIND instruction. 
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Next, consider an instruction like SORT OBJECT A, 
in a recursive functional language. The definition of 
SORT, if it is a generalized routine like those described 
in the previous section, may read something like ARRANGE 
ACCORDING TO THE ATTRIBUTE VALUES OF. The definition has 
different arguments from SORT itself-- it refers to the 
attribute values of A instead of the object A. The 
interpreter would need to be general enough to replace 
SORT A by ARRANGE A BY THE ATTRIBUTE VALUES OF A; then 
execute FIND THE ATTRIBUTE VALUES OF A, and insert the 
value of this function as the second argument of the 
ARRANGE function. We have already indicated how the 
FIND might be accomplished. 

With a little further generalization, the scheme 
could handle apposition- -e.g. , SORT THE BRIDGE HAND, A. 
The phrase in apposition would provide information about 
the type of the object designated, and as we have seen, 
this information could be used to find the other argument 
of the ARRANGE routine. Further light will be cast on 
apposition in the next section, where we shall discuss 
modifiers that identify an argument, and their relation 
to modifiers that describe the object. 
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IX. DEFINITE DESCRIPTIONS 

The meaning of much descriptive and expository prose 
can be captured in a fairly simple language- -a sub- 
language of English—that uses only the verb "is" and 
noun phrases with definite or indefinite articles in 
subjects and predicates. Consider the following example, 
which, while it does not fit this restricted form exactly, 
is not far from it : 

The state description of a routine consists 
of a list of affected cells. For each affected 
cell on the list, the state description specifies 
its input state and its output state. 

SYNTACTIC CHARACTERIZATION 

We might proceed to formalize this description in 

either of several ways. I shall call the first of these 

syntactical , since it makes statements about the terms 

"state description," "affected cells," "input state," 

and "output state." These statements can then be stored 

in association with the relevant terms in a lexicon. 

The type of "state description" is "description 
list"; 

The attribute of "state description" is "list 

of affected cells"; 
The type of "list of affected cells" is "list"; 
The type of "affected cell" is "description list"; 
The attributes of "affected cell" are "input state" 

and "output state," 

We have already seen this kind of description in our 
discussion of generalized SORT routines in the previous 
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section. Readers who are familiar with the notation 
known as Backus normal form will observe that a syn- 
tactical description of this kind could without much 
difficulty be translated into that form--or a slight 
extension thereof. Our interest, however, is in staying 
close to natural English. 

SEMANTIC CHARACTERIZATION 

An alternative, semantic , formalization characterizes 
a given type of object (STATE DESCRIPTION in this 
instance) by describing an example: 

XI is a state description of a routine if 
there are an XO, X2 , X3, X4 , 
and X5, such that: 

XO is a routine; 

XI is the state description of XO; 

X2 is the list of affected cells of XI; 

X3 is a member of X2; 

X4 is the input state of X3; 

X5 is the output state of X3. 

Properly interpreted, the example implies the 

syntactic description we gave previously. Consider, for 

instance, "X3 is a member of X2." With the convention 

that only lists have members, this statement implies that 

X2 is a list. From the previous statement, "X2 is the 

list of affected cells of XI," we observe that this list 

is the value of the attribute, LIST OF AFFECTED CELLS, 

of XI. 

We can store the example in memory by storing a 
description list, XO, with attribute STATE DESCRIPTION 
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having value XI. XI, in turn, is a description list, 
with attribute LIST OF AFFECTED CELLS having the value 
X2. X2 is a list whose sole member is X3. X3 is a 
description list with attribute INPUT STATE having value 
X4, and attribute OUTPUT STATE having value X5. 

ANNEXING DESCRIPTIVE INFORMATION TO AN INFORMATION STORE 

Let us use symbols from the X region- -e. g. , X114, 
X33 — to designate nouns. These nouns will be either 
proper names (of objects to be represented by lists or 
list structures) or attributes. Consider now the sentence: 
"X114 is the X33 of the X25 of X105." 
In this sentence, which is grammatical if inelegant 
English, H X114" and "X105" are proper names, while "X33" 
and "X25" name attributes. The objects referred to in 
this sentence are X114 (or synonymously, the X33 of the 
X25 of X105), the X25 or X105, and X105. The problem 
of annexing the information provided by this sentence to 
an existing memory store depends on what is already in 
the store. 

Suppose, as a first possibility, that no information 
has been stored previously about the objects mentioned in 
this sentence. We store the new information by creating 
a name, call it X200, and assigning it as the value of 
attribute X25 of XI 05. Then we assign X114 as the value 
of attribute X33 of the newly named object, X200. 
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Suppose, however, that we had previously stored in 
memory the information that an object named X130 was the 
value of attribute X25 of X105. Then, to store the new 
information, we would first have to find X130, and then 
assign X114 as the value of attribute X33 of XI 30. 

In the first case, we annexed the new information 
by two ASSIGN processes --in IPL-V, two applications of 
Jll. In the second case, we annexed the new information 
by a FIND process (J10 in IPL-V) followed by an ASSIGN. 
We can write a general routine to accomplish this. In 
processing a sentence like the one we are using as 
example, we start at the extreme right and search in 
memory for the object named. If we find it, we proceed 
to the left, find the first attribute, and find the value 
of this attribute of the object. If the value exists, it 
becomes a new object on which we can repeat the process, 
moving to the next attribute to the left. 

When we fail to find an object meeting the descrip- 
tion (when J10 fails), we enter a second phase. We now 
proceed from the left-hand side of the sentence, creating 
names for new objects as these are needed, and annexing 
their descriptions to them (by Jll) , until we reach an 
object that is already mentioned in memory. 

Thus, depending on what is already stored in memory, 
the same piece of information in the input sentence can 
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serve either as a descriptive phrase, providing new 

information to be annexed to the memory structure, or as 

an identifying phrase, to be used in locating the place 

in memory where the new information is to be annexed. 

In this scheme ambiguity is entirely possible. It 

can enter because the scheme allows indefinite, as well 

as definite description. Again, an example will make the 

point clear. We consider the following sequence of four 

input sentences : 

X114 is the X33 of the X25 of X105. 

X115 and X116 are the X99 of the X34 of the 

X25 of XI 05. 
X125 is the X41 of a member of the X71 of the 

X24 of X105. 
X117 is the X75 of the member whose X41 is 

X125 of the X71 of the X24 of X105. 

Suppose we begin with no information about X105 in 
memory. Then, as we have seen, the first sentence is 
stored by two executions of Jll. The first creates a new 
object, say X200, and assigns X114 as its X33; the second 
assigns X200 as the X25 of X105. 

The second sentence is stored by two executions of 
Jll and one of J10. Working from the right, by J10, X200 
is found to be already in memory as the X25 of X105. But 
there is no value for attribute X34 of X200. Hence, a 
list, say X201 , is created whose members are X115 and 
X116, and X201 is assigned as the value of X99 of another 
new object, say X202. Finally, X202 is assigned as the 
X34 of X200. 
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Storing the third sentence brings about the creation 
of X203, whose X41 is X125; of a list X204 , of which X203 
is member; and of an object, X205, whose X71 is X204 , and 
which is, in turn, the X24 of X105. 

The fourth sentence introduces a new complication. 

It refers to "the member of the X71 of the X24 of X105 

whose X41 is X125." A series of JlO's will find the X71 

of the X24 of Xl05--that is, X204. The sentence now calls 

for locating that member of X204 whose X41 is X125. From 

the previous paragraph, we see that the object in question 

is none other than X203. Thus X117 would be assigned as 

the X75 of X203. 

Now let us return to the question of ambiguity. 

Suppose that the fourth sentence read: 

X117 is the X75 of the member whose X76 is 

X130 of the X71 of the X24 of XI 05. 

Now, when we examine X204 , we find, as before, that 
it has a member, X203. But we have no information to tell 
us whether or not X203 is "the member of X204 whose X76 
is X130." Hence, we do not know whether to assign X117 
as the X75 of X203 or to create a new member of the list 
X204--say X205, and assign X117 as the X75 of X205. 

The ambiguity is not a consequence of the particular 
annexing scheme we have used, but resides more deeply in 
the nature of things. Let r and s be relations; A, B, C, 
and X, objects. Suppose we know that ArB and that there 
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exists a Y such that CsY and YrB. Then we can neither 
affirm nor deny that Y is identical with A. (The same 
difficulty arises in R. Lindsay's program for annexing 
genealogical information to a family tree.* If we know 
only that Isaac is a son of Abraham, and Jacob is a son 
of a son of Abraham, then we do not know whether or not 
Jacob is a son of Isaac.) Our only recourse is to arrange 
the annexing routine so that, when it detects such an 
ambiguity, it outputs an appropriate question. 

A program for an annexing routine is given in 
detail in Appendix B. It will not deal with the ambiguity 
problem just discussed, but is in all other respects 
capable of annexing to memory the contents of sets of 
sentences of the kinds we have been considering. 



*0p. cit . , p. 43. 
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X. COMPILATION OF ROUTINES FROM PARTIAL DESCRIPTIONS 

One part of the flexibility of natural language 
depends on the problem-solving capacity of the listener. 
Information already in his memory allows him to supply 
details that are omitted from, or only implicit in, the 
communication. Suppose we wish to give a (human) pro- 
grammer the task of coding a routine in IPL-V for J3. 
We might tell him: 

"Write a routine, J3. that changes the 
contents of cell H5 from LS1,R0] to LJ3,R0]." 

The programmer, familiar with IPL-V, knows that H5 
is a so-called "pushdown cell," and that what is wanted 
is to replace the contents of the SYMB field of that cell, 
whatever they may be, by the symbol "J3." 

What instruction would we have to give to the SDSC 

Compiler to induce it to perform the same task? The 

instructions would read: 

"Compile the IPL-V definition of the 
following routine: The NAME of the routine is 
J3. The LIST OF AFFECTED CELLS of its STATE 
DESCRIPTION has a member, whose NAME is H5 , 
whose INPUT STATE is the list, Si, R0, and 
whose OUTPUT STATE is the list, J3 , R0." 

Given some such statement, the annexing routine 

described in the previous section could construct an 

appropriate description list as input to the SDSC Compiler. 

In Part I, we showed how the SDSC Compiler could then 

write the desired routine from its state description. 
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Now the instructions to the compiler have required 
about three times as many words as the instructions to 
the human programmer. The reason is easy to see. The 
essential information to be provided is that the cell to 
be changed is H5, and that the change is to replace an 
unknown symbol by the symbol J3. The compiler cannot 
receive this information without explicit mention that 
J3 is the first symbol in the list of the output state of 
affected cell H5 of the list of affected cells of the 
state description of the routine named J3. The human 
programmer is capable of supplying this additional 
information, because he knows what the structure of a 
state description is like. 

The last observation suggests that we might give 
the compiler the same capability by providing it prior 
information about the structure of a state description, 
and allowing it to fill in the implicit detail. Let us 
employ the language of Sec . IX to see how this might be 
done . 

The complete description list, necessary to the 
Heuristic Compiler, is equivalent to the following set of 
sentences : 

Let X100 be a routine whose NAME is J3. 
Let X101 be the STATE DESCRIPTION OF X100. 
Let X102 be a member, whose NAME is H5, of 

the LIST OF AFFECTED CELLS OF X101. 
Let SI, RO be the INPUT STATE OF X102. 
Let J3, RO be the OUTPUT STATE OF X102. 
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In parallel fashion, we can store in memory a 
"template" for the description of a routine. We will use 
symbols from region "Y" to denote variables. 
Yl is the NAME of Y2. 

Y3 is the STATE OF DESCRIPTION of Y2. 

Y4 is the LIST OF AFFECTED CELLS OF Y3. 

Y5 is a typical member of Y4. 

Y6 is the NAME of Y5. 

Y7 is the INPUT STATE OF Y5. 

Y8 is the OUTPUT STATE OF Y5. 

X7 and Y8 are lists. 

Now to fit the specific example to the template, we 

identify J3 with Yl , X100 with Y2, X101 with Y3, X102 

with Y5, and so on. Suppose, however, the example were 

incomplete, as follows: 

X100 is a routine whose NAME is J3. 

N101 is a cell whose NAME is H5. 

SI, RO is the Ml of X101. 

J3, RO is the M2 of XI 01. 

Here "Ml" and "M2" designate attributes whose 
meanings are not given in the lexicon. It should not be 
too difficult to devise a process for matching this 
description with the template. The matching process 
would discover that X101 has to be identified with Y5, 
and X100 with Yl. New objects could then be created to 
correspond with Y3 and Y4 , and the appropriate descrip- 
tion list stored in memory. The SDSC Compiler, taking 
this description list as its input, could now compile the 
code for J3. 

Our basic proposal, then, for compiling routines 
from partial descriptions rests on two devices : (1) the 
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use of an annexing routine like that described in Sec. IX 
as a means for constructing description lists from 
expository sentences; (2) the use of templates to provide 
information that is not given explicitly in the input 
sentences. The routine for accomplishing the second task 
has not yet been written. 
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Appendix A 

PROGRAM LISTING OF THE HEURISTIC COMPILER 

This listing includes a rather simple form of the 
General Compiler [U135] , DSCN and SDSC Compilers [U134 
and U140, respectively], routines for assembling flow 
diagrams [U133] , and routines for printing JDEF [U125] , 
DSCN [U126], SDSC [U127] , and all three of the above 
[U128]. These routines are called in by a general 
executive [Tl]. 

List structures in regions E, T, and U, and X5 and X7 
are routines. The remaining list structures in region X 
are data. The version of Tl that is listed will print 
X102, then compile and print X105 and X100, compile X182 
from its flow chart, printing the result, and reconstruct 
the flow chart of X102 from its code. 

The program is in IPL-V (Information Processing 
Language-V) and is machine independent. 



E4. PRINT LIST (0) OF DATA TERMS 
WITHOUT NAMES. ENTER LIST NAME 



E40. MARK ROUTINES ON (0) TO TRACE 



E41. MARK ROUTINES ON (0) 
NOT TO TRACE 



PRINT, CLEAR 
SPACE BAR ONCE 
SPACE BAR TWICE 
PERIOD, SPACE TWICE 



COMMA, SPACE ONCE 



E55. PRINT LIST STRUCTURE, 
SAVING FOR NEXT PROCESS 



AO 




0200 






EO 




0200 






LO 




0200 






NO 




0200 






TO 




0200 






UO 




0200 






XO 




0200 






E4 


40H0 




E4 


000 




J156 




E4 


010 




E54 


91 


E4 


020 


91 


J60 




E4 


030 




7092 




E4 


040 




12H0 




E4 


050 




J157 


91 


E4 


060 


92 


E53 


JS 


E4 


070 


E8 


1090 




E8 


000 




J101 


E50 


E8 


010 


90 


70 


91 


E8 


020 




12H0 




E8 


030 




J156 




E8 


040 




7092 




E8 


050 




30H0 




E8 


060 




E54 




E8 


070 




7093 


0 


E8 


080 


91 


E50 




E8 


090 




J156 


E53 


E8 


100 


92 


E50 




E8 


110 




10N10 




E8 


120 




J161 




E8 


130 




52H0 




E8 


140 




J156 


E54 


E8 


150 


93 


E50 




E6 


160 




10N10 




E8 


170 




J161 


J4 


E8 


180 


E40 


1090 




E40 


000 




J100 


C 


E40 


010 


90 


J147 


J4 


E40 


020 


E41 


1090 




E41 


000 




J100 


0 


E41 


010 


90 


J149 


J4 


E41 


020 


E50 


J155 


J154 


E50 


000 


E51 


10N1 


J161 


E51 


000 


E52 


10N2 


J161 


E52 


000 


E53 


1091 




E53 


000 




J157 


£52 


E53 


010 


91 


+ 21. 




E53 


020 


E54 


1091 




E54 


000 




J157 


E51 


E54 


010 


91 


+21, 




E54 


020 


E55 


E50 




E55 


000 




40H0 


E8 


E55 


010 


Tl 


3J0 




Tl 


000 




10A99 




Tl 


010 




J154 




Tl 


020 
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C0N5TRUCT IPLV WORD (3)» WITH 

P=(0) tO=( 1) ,SYMB=(2) . NO OUTPUT 
ASSIGN P 

ASSIGN Q 

ASSIGN SYMB 

CONSTRUCT IPLV SYMBOL, WITH 



13AO 



10930 



J100 






10X102 


Tl 




U128 


Tl 




10X105 


Tl 


030 


40H0 


Tl 


040 


U135 


Tl 


050 


30H0 


Tl 


060 


U128 


Tl 


070 


10X100 


Tl 


080 


40H0 


Tl 


090 


U135 


Tl 


100 


30H0 


Tl 


110 


U128 


Tl 


120 


10X182 


Tl 


130 


10X41 


Tl 


140 


J10 


T 1 


1 50 


10X180 


Tl 


160 


10X181 


T 1 


1 70 


U133 


T 1 


180 


J50 


Tl 


190 


J90 


T 1 


200 


40H0 


T 1 


210 


11W0 


T 1 


220 


10X22 


Tl 


230 


Jll 


T 1 


240 


40H0 






U128 


Tl 


260 


40H0 


Tl 


270 


U139 


Tl 


260 


40H0 


Tl 


290 


10X26 


Tl 


300 


J10 


Tl 


310 


40H0 


Tl 


320 


U125 0 


Tl 


330 



930 


J147 


0 






T99 


J166 


J165 


T99 


000 


U100 


J52 




U100 


000 




J90 




U100 


005 




J136 




U100 


006 




40H0 




UlOO 


010 




11W0 




U100 


020 




10X43 




UlOO 


030 




Jll 




UlOO 


040 




40H0 




UlOO 


050 




11W1 




UlOO 


060 




10X44 




UlOO 


070 




Jll 




UlOO 


080 




40H0 




UlOO 


085 




11W2 




UlOO 


090 




10X45 
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Jll 
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UlOO 


110 


U101 


J51 




U101 


000 
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J90 




U101 


005 


REGION=(0) »LOCATION=( 1 j . OUTPUT 




J136 




U101 


010 


(0) IS LOCAL NAME OF SYMBOL 




40H0 




U101 


020 






11 wo 




U101 


030 


ASSIGN REGION 




10X33 




U101 


040 












050 


cav/C" i nr a i mamt 
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060 






10X34 
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m n? 


070 
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080 


ASSIGN SYMB VALUE 




10X45 




i Ni no 


?rn 






Jl 1 
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U10Z 




CONSTRUCT — INPUT D.S.»(0) IS D.S. 


U 1 0 3 


1 ON 1 




m 




NO OUTPUT 




10 J50 


Jl 1 




nin 










U104 


000 


Dec QvMtt . - f 1) OUTPUT (0) T ^ 1 Of A L 




40H0 




U104 


010 


NAME OF PROCESS 




1 1 W0 




U104 


020 






10X43 




U104 


030 






Jl 1 


J30 


U104 


040 


CONSTR. J-DEF.»NAME (0)»0F (1). 


U105 


10X41 


Jl 1 


U105 


000 


CONSTRUCT PROCESS* P=0* Q=0» 


Ul 06 


J50 




U106 


000 


(0)=SYMB. OUTPUT (0) IS LOCAL 




J90 




U106 


010 


NAME OF PROCESS 




J136 




U106 


020 


CREATE WORD 




40H0 




U106 


030 


AND MAKE (0) ITS SYMB 




1 1 WO 




Ul 06 


040 






10X45 




U106 


050 






Jl 1 


J30 


U106 


060 


COMPARE I PL SYMBOLS (0) AND (1) 


U107 


J51 




U107 


000 


FOR IDENTITY. SET H5 




1 1W1 




U107 


010 






10X33 




U107 


020 






J 1 0 




U107 


030 






i nx^ 




U107 


040 










U107 








no 
J10 




U107 


nAn 


TEST IF REGIONS EQUAL. 




J 1 1 4 




U107 


070 






70 J31 






080 


IF S0» 








U107 








10X34 




U107 


100 






J10 




U107 


110 






11W0 




U107 


120 






10X34 




U107 


130 






J10 




U107 


140 


TEST IF LOCATIONS EQUAL. 




J114 


J31 


U107 


150 


REPLACE ARGS. IN ROUTINE (0) 


U108 


J40 




U108 


000 


WITH COPIES. 




U114 




U108 


010 
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FIND NEXT ARG. 


90 


J60 




U108 


020 


IF NONE, EXIT 




7091 




U108 


030 






60 WO 




U108 


040 


COPY ARGUMENT, AND 




52H0 




U108 


050 






J74 




U108 


060 


INSERT COPY IH LIST 




61W0 




U108 


070 






40H0 




U108 


080 






10X32 




U108 


090 






J10 




U108 


100 


TEST IF ARG. IS DETERMINER 




10X37 




U108 


110 






J2 




U108 


120 






70 


92 


U108 


130 


IF NOT, CONTINUE 




30H0 




U108 


140 


WITH NEXT ARGUMENT. 


93 


11W0 


90 


uioa 


150 


IF A DETERMINER ( RECURSE. 


92 


U108 


93 


U108 


160 


NO MORE ARGS. , EXIT 


91 


30H0 


J30 


U108 


170 


FIND ON LIST (0) ROUTINE WITH 


U110 


J42 




U110 


000 


SAME PROCESS(DSCN) AS (1). SET H5 




20WO 




U110 


010 






Ulll 




U110 


020 


PUT PROC(DSCN) IN Wl 




20W1 




U110 


030 


COMPARE WITH LIST ITEMS 




11W0 




U110 


040 






1090 




U110 


050 






J100 




U110 


060 


SET H5 + IF FOUND( - IF NOT 




J5 


J32 


U110 


070 


STORE ITEM IN W2 


90 


60W2 




U110 


080 


AND FIND PROC(DSCN) 




Ulll 




U110 


090 


COMPARE IT WITH lWl 




11W1 




U110 


100 


SET H5 - IF FOUND 




J2 


J5 


U110 


110 


FIND PROCESS OF DSCN 


Ulll 


10X20 




Ulll 


000 


OF ROUTINE (0) . 




J10 




Ulll 


010 


(ASSUME IT EXISTS) 




10X30 


J10 


Ulll 


020 


TRANSFER HO-LIST ARGUMENT OF 


U112 


J42 




U112 


000 


ROUTINE (0) TO WS« 




60 WO 




U112 


010 


BRING IN N-LIST 




10X199 




U112 


020 


COPY IT 




J73 




U112 


030 


AND STORE IN Wl 




2 0W1 




U112 


040 


FIND LIST OF ARGUMENTS 




10X20 




U112 


050 


OF DSCN OF (0) 




J10 




U112 


060 






10X31 




U112 


070 






J10 




Ul 12 


080 






90 




U112 


090 






30H0 


J32 


U112 


100 




92 


04J0 




U112 


110 


BRING IN TALLY 




12W1 




U112 


112 






10L23 




U112 


114 






U101 




U112 


116 






10N1 




U112 


120 






10N1 




Ul 12 


121 


CONSTRUCT TRANSFER PROCESS 




U100 




U112 


122 


INSERT IN J-DEF OF (0) 




11 WO 




U112 


130 






J6 




U112 


140 






10X22 


J12 


U112 


150 


LOCATE NEXT ARGUMENT 


90 


04J60 




U112 


170 


IF NONE, GO TO 92 




700 




U112 


180 
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FIND TYPE OF ARGUMENT 



60W2 
52H0 
10X32 
J10 
10X35 



TEST IF IN H— REGION 




J2 


IF NOT* LOCATE NEXT ARGUMENT 




7091 


IF SO » 




12W2 


COPY OLD ARGUMENT 




J74 


AND MAKE I T LOCAL 




J136 






11W2 






40H0 


DELETE OLD ARGUMENT 




J68 






J6 


INSERT COPY AS NEW ARGUMENT 




J63 


BRING IN ARGUMENT 




12W2 






40H0 


ASSIGN X36 AS NEW TYPE 




10X36 






10X32 






Jll 


CHANGE ARG TO WN 




U119 






11W1 






J60 






70J7 






20W1 






92 




91 


11W2 


LOC. ARGS. IN ROUTINES (2), (1) 


U113 


J42 


CORRESPONDING TO HN * N=(0) 




20W0 


I N ROUT I NE ( 1 ) 




U114 


PUT ARG. LIST OF (1) IN Wl 




20W1 






40H0 






U125 






U114 


PUT ARG. LIST OF (2) IN W2 




20W2 




90 


11W1 


LOCATE NEXT ARG. OF (1) 




J60 


IF NONE » TERMINATE 




7091 


AND SAVE IT 




60W1 






11W2 


LOCATE NEXT ARG. OF (2) 




J60 






20W2 






52H0 






10X32 






J10 


TEST IF ARG ( 1 ) I N HO 




10X35 






J2 


IF NOT. TRY NEXT ARG. 




7090 


TEST IF LOC ( ARG ) = (0) 




12W1 






10X37 


FIND ITS DETERMINER 




J10 






70J7 


SET UP TALLY IN W3 




J90 






J124 



91 
90 



U112 190 
U112 200 
U112 210 
U112 220 
U112 230 
U112 240 
U112 250 
U112 260 
U112 270 
U112 275 
U112 280 
U112 290 
U112 300 
U112 310 
U112 320 
U112 330 
U112 340 
U112 350 
U112 360 
U112 370 
U112 380 
U112 410 
U112 420 
U112 430 
U112 440 
U112 445 
U112 450 
U113 000 
U113 010 
U113 020 
U113 030 



U113 040 
U113 050 
U113 060 
U113 070 
U113 075 
U113 080 
U113 090 
U113 100 
U113 110 
U113 120 
U113 130 
U113 140 
U113 150 
U113 160 
U113 170 
U113 182 
U113 184 
U113 186 
U113 188 
U113 190 
U113 192 
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COUNT NUMBER OF X150S 



COMPARE NUMBER WITH (0) 



IF NOT t TRY NEXT ARG. 
IF SO, INPUT LOCATION (2) 
AND (IN AND EXIT. 
TERMINATE 

FIND ARG. LIST OF DSCN 
OF ROUTINE (0) 
(ASSUMES IT EXISTS) 
COMPILE ROUTINE (1) FROM 
ROUTINE (C). DSCN PROCESSES SAME 
COPY R{0) AND BRING IN TALLY 
( 1 ) HAS NAMED ARGS. » 
(0) HAS H-REG I ON ARGS • 



LOCATE ARGS. FOR HN 
IF NONE, TERMINATE 
DISCARD ARG. LIST OF R(0) 

COPY SUBSTITUTE ARGUMENT 
AND MAKE COPY LOCAL 



MAKE IPL WORD = UUWN 

INSERT WORD IN JDEF OF R(0> 

ADVANCE TALLY AND EXIT 
TERMINATE 

TRANSFER JDEF OF R(0) TO RUN 
COPY JDEF 

AND MARK COPY LOCAL 



40W3 

20W3 
93 J60 

7092 

12H0 

10X150 
J2 

7093 

11W3 
J125 

30H0 93 
92 3OH0 

11W3 

11 WO 
J114 

30W3 
7090 
11W2 

11W1 J32 
91 30H0 J32 

U114 10X20 
J10 
10X31 J10 
U115 J43 
J74 
J136 
10X199 
J60 
J22 
91 UW2 
llwl 

12 WO 
Ul 1 3 

7090 
30H0 
52H0 

J74 

J136 
10N1 
10N1 

U100 
11W1 

J6 
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11W0 

J60 
20W0 91 
90 11W2 
UW1 
10X22 

J10 

J74 

J136 



U113 
U 1 1 3 
Ul 13 
U113 
U113 
U 1 1 3 
Ul 1 3 
U113 
U113 
Ul 1 3 
Ul 13 
U113 
U113 
U 1 1 3 
Ul 13 
U113 
U113 
U113 
U113 
U113 
U114 
Ul 14 
Ul 14 
Ul 1 5 

W2=R(1) Ul 1 5 
Ul 1 5 

W1=R(0) U115 
W0=TALLY U115 
Ul 1 5 
U115 
Ul 1 5 
U115 
Ul 15 
Ul 1 5 
Ullb 
U115 
U115 
U115 
Ul 1 5 
U115 
Ul 1 5 
Ul 1 5 
Ul 1 5 
U115 
Ul 1 5 
Ul 1 5 
Ul 1 5 
Ul 1 5 
Ul 1 5 
Ul 1 5 
U115 
Ul 1 5 
U115 
Ul 1 5 
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226 
228 
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040 
050 
060 
070 
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160 
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220 
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270 
280 
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295 
300 
310 
320 
330 
335 
336 
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ERASE COPY OF R(O) AND EXIT 
COMPILE JDEF OF (O)FROM ROUTINE(l). 
BOTH HAVE SAME PROCESS IN DSCN 

(0) HAS H-REG I ON ARGS. 

( 1 ) HAS W-REGION ARGS. 
FIND ARGS. OF DSCN OF (0) 



CREATE TALLY IN WO 
TALLY NO. OF H-ARGS. 



COPY J-DEF OF (1) 



FIND LAST SYMBOL OF J-DEF 

ERASE ITS LINK 
SAVE J-DEF 
MAKE INSTR. J5N 

INSERT AT FRONT OF JDEF 



MAKE INSTR. J3N 



ASSIGN NO AS LINK OF INSTRUCTION 
INSERT INSTR. AT END OF JDEF 



INSERT JDEF IN ROUT. (0) . 



TEST IF ARGUMENT IS 
IN H-REG I ON 



IF NOT » CONTINUE 

IF SO, TALLY AND CONTINUE 



CONSTRUCT NEW INSTRUCTION 



ASSIGN NO AS LINK OF INSTR. 
CREATE LOCAL SYMBOL 



SAVE IT 
BRING IN NO 



10X2 2 
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340 
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140 
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150 
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40H0 
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200 
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210 
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220 


40H0 
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230 


10N29 
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240 


91 
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250 


40H0 




U116 


260 
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280 


J65 




U116 


300 


10X22 
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380 


J125 
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U106 
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4J90 
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470 


J136 
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480 


40H0 
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490 


J50 




U116 


500 


10N0 




U116 


510 
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MAKE IT REGION OF SYMdOL 

MAKE 1WC LINK OF INSTR. 

REPLACE HS BY WS IN DSCN 

OF (0). OUTPUT (0)=N, NUMBER 

OF REPLACEMENTS. 

FIND LIST OF ARGS OF DSCN OF (0) 

DO 90 TO ARGS ON LIST 

BRING IN TALLY AND EXIT 
SAVE ARG. 

FIND ITS TYPE 

TEST IF DETERMINER 

DESIG. SYMd. FIND REGION 



TEST IF H-REG I ON 

IF NOT t EXIT 
CHANGE ARG TO WN 
AND ADD ONE TO TALLY 



DETERMINER. 

FIND ITS LIST OF ARGUMENTS 



MODIFY JDEF OF (0) TO TAKE N= ( 1 ) 
INPUTS FROM WS. NO OUTPUT. 



FIND AND SAVE JDEF OF (0) 
FIND ITS LAST SYMBOL 



ERASE ITS LINK 

SAVE JDEF 

MAKE INSTR. J5N 

INSERT AT FRONT OF JDEF 
MAKE INSTR. J3N 



10X33 

Jll 
11 WO 
10X46 

Jll J30 
U117 J90 
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J50 
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J10 
10X31 
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J100 
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90 44H0 
10X32 

J1C 
10X37 
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40H0 




una 


160 


ASSIGN NC AS LINK OF INSTR. 




32 




U116 


170 


INSERT INSTR. AT END OF JDEF 




J65 


J31 


una 


IdO 


CONSTRUCT NEW INSTRUCTION 


91 


4J0 




una 


190 


BRING IN N 




11W1 




una 


200 


COMPUTE XN 




J120 




una 


210 






40H0 




U118 


220 






J110 




U118 


230 


MAKE JXN 




10L10 




una 


240 






U101 


U106 


una 


250 


ASSIGN NO AS LINK OF INSTR. 


92 


4J90 




una 


260 


CREATE LOCAL SYMbOL 




J136 




U118 


270 






40H0 




una 


280 


SAVE IT 




J50 




una 


290 


BRING IN NO 




10N0 




una 


300 






10X33 




U118 


310 


MAKE IT REGION OF SYMBOL 




Jll 




una 


320 


MAKE SYMBOL LINK OF INSTR. 




11 WO 




U118 


330 






10X46 




una 


34C 






Jll 


J30 


U118 


350 


CHANGE ARG (0)=HN TO WN, 


U119 


40H0 




U119 


000 


NO OUTPUT 




10X37 




U119 


010 


FIND ITS DETERMINER 




J10 




U119 


020 


SET UP TALLY IN WO 




J90 




U119 


040 






J124 




U119 


050 






J50 




U119 


060 


TALLY AND ERASE X150S 


93 


40H0 




U119 


070 


FROM DETERMINER 




10X150 




U119 


080 






J62 




U119 


090 






7094 




U119 


100 






11W0 




•Jll 9 


110 






J125 




U119 


120 






30H0 




U119 


130 






J68 


93 


U119 


140 




94 


30H0 




U119 


150 


CONSTRUCT SYMBOL WN 




30H0 




U119 


160 






11W0 




U119 


170 






30W0 




Ul 19 


180 






10L23 




U119 


190 






U101 




U119 


200 


ASSIGN IT AS X45 OF ARGUMENT 




10X45 




U119 


210 






Jll 


0 


U119 


220 


MODIFY JDEF TO DO PROCESS (2) 


U120 


10N9 




U120 


005 


AFTER (3) WITH FIELD (1)=(0). SET 




U101 




U120 


010 


H5+ IF (2) WAS NAMELESS, H5- IF 




J53 




U120 


015 


(2) HAS NAME. NO OUTPUT. 




11W2 




U120 


020 






J8 1 




U120 


025 


FIND FIRST INSTR. OF ( 1 ) 




40H0 




U120 


030 






10X41 




U120 


040 


IF IT HAS NAME, REPLACE (0) 




J10 




U120 


050 


WITH NAME, IF NOT, SKIP TO 90. 




7090 




U120 


060 






20W0 




U120 


070 






30H0 


91 


U120 


030 


PUT (0) AS NAME OF FIRST OF (1). 


90 


11 WO 




U120 


090 
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FIND LAST INSTR. OF (3) 



MAKE 1WO ITS LINK. 
OR SYMB 

SET H5 AND EXIT 

MODIFY JDEF TO EXIT AFTER 

PROCESS (0). MO OUTPUT 



MAKE SYMB. 0. 

ASSIGN IT AS LINK OF LAST OF (0). 

PRINT THE JDEF OF (0) 

FIND JDEF 

CLEAR PRINT LINE 

PRINT LIST OF INSTRUCTIONS 

PROCESS INSTRUCTION 
ENTER TYPE IN COL. 28 
ENTER NAME IN COLS. 30-34 
ENTER SIGN IN COL. 35 
ENTER P IN COL. 36 
ENTER Q IN COL. 37 
ENTER SYMB IN COLS • 38-42 



ENTER LINK IN COLS. 44-48. 
PRINT. 

FIND VALUE OF ATTRIBUTE (1) 
AND ENTER ITS REGION AND 
LOCATION IN COLS. BtGINNING 



90 

U125 



10X41 




U120 


100 


Jll 




U120 


110 


11 W 3 




U12C 


120 


J61 




U120 


130 


52H0 




U120 


140 


11 WO 




U120 


150 


11W1 




U120 


160 


Jll 




U120 


170 


J5 


J33 


U120 


180 


J61 




U122 


000 


52H0 




U122 


010 


40H0 




U122 


012 


10X46 




U122 


014 


J10 




U122 


016 


70 


90 


U122 


018 


10NO 




U122 


020 


40H0 




U122 


030 


U101 




U122 


040 


10X46 


Jll 


U122 


050 


30H0 


je 


U122 


060 


10X22 




U125 


000 


J10 




U125 


010 


J154 




U125 


020 


1090 




U125 


030 


J100 


E50 


U125 


040 


04J0 




U125 


050 


10X40 




U125 


055 


10N28 




U125 


060 


920 




U125 


070 


10X41 




U125 


080 


10N30 




U125 


090 


910 




U125 


100 


10X42 




U125 


110 


10N35 




U125 


120 


920 




U125 


130 


10X43 




U125 


140 


10N36 




U125 


150 


920 




U125 


160 


10X44 




U125 


170 


10N37 




U125 


180 


920 




U125 


190 


10X45 




U125 


200 


10N38 




U125 


210 


910 




U125 


220 


10X46 




U125 


230 


1CN44 




U125 


240 


910 




U125 


245 


E50 




U125 


250 


30H0 


J4 


U125 


255 


04930 




U125 


260 


70J31 




U125 


270 


J160 




U125 


280 


40H0 




U125 


285 


10X33 




U125 


290 



-76- 



ENTER REGION 


J10 




U12d 


3 00 




70912 




U125 


310 




J157 




U125 


320 


911 


10X34 




U125 


330 


ENTER LOCATION 


J10 




U125 


340 


















U125 


360 


912 


Nl 




U125 


365 




n , 1 


Ql 1 


m W 


^7n 


FIND VALUE OF ATTRIBUTE (1) 920 










AND FMTFR IN TDI. ( H \ 


7 A 1^1 
f 






4 An 




J160 




U125 


390 




J 1 57 


J3 1 


U125 


400 


PROCESS FOR 910 AND 920 930 


04 J 5 1 




U 12 5 


410 




40H0 




U125 


420 




1 1 Wl 




U125 


4 30 




J10 




U 12 5 


440 




700 




U125 


450 




1 1 WO 


0 


U12 5 


460 


ENTER IN PRINT LINE THE NAME OF U126 


J41 




U126 


000 




40H0 




U126 


001 


TCCT TP Bni IT IMF 


10X32 




^} 


002 


TC A hCTCDUIMZD 


J10 




U126 


00 3 




10X^7 




U 126 




















Ml ?A 




IF NOT* GO TO 96 


7 






nr>7 


TF <^0 « PRTMT T T ^ WFRR 








n 








ii ^ a 


no 
009 




J10 




U126 


010 


FWTPB DATA TFDMC nc i/FS j OQ 
1 Lit Uft 1 M 1 Lnrlj Ur vlKD Vo 


Q7° 




U126 


011 










012 








1 ?A 


° 1 A 




qi n 








97 


F<=i 1 








AND CONTINUE AT 96 


30H0 


96 


U126 


016 


96 


10X2 0 




U126 


019 


FIND ITS DSCN 


J 1 0 




U126 


n^n 








m^A 






10X30 




U126 


040 




J 1 0 




U126 


050 


D i i T PfffifFcc T m :«/ n 


20 W0 




U126 


060 




10X3 1 




U126 


070 




J10 




U126 


080 


PUT ARGS IN Wl 


20 Wl 




U126 


090 


9 1 


1 1 WO 




U126 


100 


FIND NEXT WORD IN NAME 










EXIT IF NONE 


7092 




U126 


120 




60W0 




U126 


130 




52H0 




U126 


140 




40H0 




U126 


150 


TEST IF 1H0 NAMES DATA TERM 


J131 




U126 


160 




7090 




U126 


170 




910 


91 


U126 


180 



-77- 



DOES NOT NAME DATA TERM 90 


30H0 




U126 


190 




11W1 




U126 


191 


SPACE ONCE 


E51 




U126 


195 


FIND NEXT ARGUMENT 


J60 




U126 


200 


ERROR STOP 


70J7 




U126 


210 




60W1 




U126 


220 




52H0 




U126 


230 




40H0 




U126 


240 




10X32 




U126 


250 




J10 




U126 


260 




10X37 




U126 


270 


TEST IF ARG IS A DETERMINER 


J2 




U126 


280 




70 


94 


U126 


290 


IF NOT * SAVE IT 


40H0 




U126 


300 


TEST IF MEMbER OF hO LIST 


10X32 




U126 


301 




J10 




U126 


302 




10X35 




U126 


303 




J2 




U126 


304 


IF SO, BRANCH TO 95 


70 


95 


U126 


305 


IF NOT t SAVE IT 


40H0 




U126 


306 


FIND ITS DETERMINER 


10X37 




U126 


310 




J10 




U126 


315 




1093 




U126 


320 


AND ENTER IT 


J100 




U126 


330 


SPACE ONCE 


E51 




U126 


335 


FIND ITS SYMBOL 


10X45 




U126 


340 




J10 




U126 


350 




40H0 




U126 


360 




10X33 




U126 


370 




J10 




U126 


380 




910 




U126 


390 




10X34 




U126 


400 




J10 




U126 


410 




910 




U126 


420 




E51 


91 


U126 


425 


92 


30H0 


J31 


U126 


430 


93 


10910 




U126 


440 




J100 


0 


U126 


450 


94 


U126 


91 


U126 


460 


ENTER IN PRINT LINE 910 


40H0 




U126 


470 




J157 




U126 


475 


LINE SPACE IF NO ROOM 


70 


J8 


U126 


480 




E50 




U126 


490 




10N10 




U126 


500 




J160 


910 


U126 


510 


ENTER NAME OF ME'VoER 95 


J60 




U126 


530 


OF HO LIST 


70J7 




U126 


540 




52H0 




U126 


550 




910 




U126 


560 




E51 


91 


U126 


570 


PRINT THE SDSC OF ROUTINE 10) U127 


J40 




U127 


000 


CLEAR PRINT LINE 


J154 




U127 


010 




10X24 




U127 


020 


FIND SDSC 


J10 




U127 


030 



-78- 



FIND LIST OF AFFECTED CELLS 

DO 90 TO AFFECTED CELLS 
AND EXIT 

FIND NAME OF CELL 
ENTER IT IN PRINT LINE 

FIND INPUT LIST 

AND ENTER ITS SYMBOLS 

ENTER PERIOD 

FIND OUTPUT LIST 

ENTER ITS SYMBOLS 

ENTER PERIOD AND PRINT LINE 
ENTER A SYMBOL IN THE PRINT LINE 



ENTER THE SYMBOLS. THEN COMMAS 
PRINT NAME* DSCN* JDEF * AND 
SDSC OF ROUTINE (0) 



TEST OF IT HAS A DSCN 
IF NOT* SKIP TO 92 

ENTER DSCN IN PRINT LINE 

PRINT 

AND SPACE 



92 

U126 



TEST IF IT HAS A JDEF 
IF NOT, SKIP TO 92 



PRINT JDEF 
AND SPACE 



TEST IF IT HAS A SDSC 



70J30 

10X71 
J10 

70J30 

1090 
J100 

60W0 

10X41 
J10 
91 
E53 

11W0 

10X75 
J10 

1092 
J100 
E53 

11W0 

10X76 
J10 

1092 
J100 
E53 

40H0 

10X33 
J10 
J157 

10X34 
J10 
91 
JbO 
90 
E50 

11W0 

40H0 

10X20 
J10 

7092 

30H0 
U126 
E50 
E50 

11W0 

40H0 

10X22 
J10 

7093 

30H0 
U125 
E50 

11 WO 

40H0 

10X24 
J10 



J157 
E 54 



-79- 



IF NOT. EXIT BY 9b 
PRINT SDSC AND EXIT 

TEST IF IT HAS AN IPLN 
IF NOT, EXIT 

IF SO, ENTER IN PRINT LINE 



COMPILE JDEF OF ROUT.(O) FROM 
JDEF OF ROUT.(l). ROUT ( 1 ) IS A J. 



9 5 

90 



COPY R1W0 AND 
COPY ARGS OF DSCN 



REPLACE HS BY WS IN DSCN OF COPY. 
SAVE(0)=NUMBER OF REPLACEMENTS. 

COMPILE JDEF OF 1W2 

FROM JDEF OF 1W1. 

MODIFY JDEF OF 1W2 TO TAKE 

N=1W3 INPUTS FROM WS. 

BRING IN 1W0. 

FIND JDEF OF 1W2 

AND ASSIGN IT AS JDEF OF 1W0 



ASSIGN NAME TO JDEF. 

ERASE 1W2, 

AND TALLY CELL. 

AND EXIT 

FIND JDEF 

FIND FIRST INSTRUCTION. 



IF IT HAS NO NAME ♦ 

ASSIGN IT V(X2-5) OF ROUTINE. 



7095 




U128 


250 


30H0 




U128 


290 


U127 


J30 


U128 


300 


30H0 


J30 


U128 


310 


04 JO 




U128 


320 


1 IrtO 




U128 


330 


10X25 




U128 


340 


J10 




U128 


350 


700 




U128 


360 


40H0 




U128 


370 


10X33 




U128 


380 


J10 




U128 


390 


J157 




U128 


400 


10X34 




U128 


410 


J10 


J157 


U128 


420 


J43 




U130 


000 


J21 




U130 


010 


11 WO 




U130 


020 


J74 




U130 


030 


40H0 




U130 


031 


U108 




U130 


040 


60W2 




U130 


043 


U117 




U130 


050 


2 0W3 




U130 


060 


11W1 




U130 


070 


UW2 




U130 


080 


U131 




U130 


090 


11W3 




U130 


100 


11W2 




U130 


110 


U118 




U130 


120 


llw/0 




U130 


130 


11W2 




U130 


140 


10X22 




U130 


150 


J10 




U130 


160 


J74 




U130 


161 


J136 




U130 


162 


10X22 




U130 


165 


Jll 




U130 


170 


910 




U130 


175 


11W2 




U130 


180 


J72 




U130 


190 


11W3 




U130 


200 


J9 


J33 


U130 


210 


1 1W0 




U130 


220 


10X22 




U130 


230 


J10 




U130 


240 


J81 




U130 


250 


40H0 




U130 


260 


10X41 




U130 


265 


J10 




U130 


266 


70 


911 


U130 


270 


11W0 




U130 


280 


10X25 




U130 


290 


J10 




U130 


300 



-80- 







10X41 


Jll 






U130 


310 


IF IT HAS NAME * EXIT. 


911 


30H0 


J8 






U130 


320 


COMPILE JDEF OF ROUT.(O) 


U131 


J45 




1W0 = 


( 0) 


U131 


000 


FROM JDEF OF ROUT.(l), (0) IS 




J21 




1W1 = 


( 1 ) 


U131 


010 


A J, (1) HAS W-REGION INPUTS 




J90 








U131 


020 






J124 








U131 


030 


SET UP TALLY IN W2 




2 0W2 




1W2 = 


TALLY 


U131 


040 






1 1W0 








U131 


050 






11W1 








U131 


060 


COPY JDEF OF ( 1 ) AND 




10X22 








U13 1 


070 


ASSIGN COPY AS JDEF OF (0). 




J10 








U131 


080 






J74 








U131 


090 






J136 








U131 


100 






10X22 








U131 


110 






Jll 








U131 


120 


LOCATE ARGS IN 1W0 AND lwl 


90 


11WO 








U131 


130 


FOR HN* N = TALL Y » IN IWl. 




11W1 








U131 


140 






11W2 








U131 


150 






U113 








U131 


160 


IF NONE, EXIT. 




7091 








U131 


170 


SAVE ARG. OF IWl IN W3. 




52H0 








U131 


180 






J74 








U131 


190 






20W3 








U131 


200 






11W2 








U131 


210 


ADD 1 TO TALLY 




J125 








U131 


220 






30H0 








U13 1 


230 


SAVE LOC. OF ARG OF 1W0 IN W4 




60W4 








U131 


240 


FIND ARG. OF 1W0 




52H0 








U131 


250 


COMP I LE ( F I ND ARG. ) 




U132 








U13 1 


260 






1 1W0 








U131 


270 


INSERT (FIND ARG.) AT FRONT 




10X22 








U131 


280 


OF JDEF OF 1W0 




J10 








U131 


290 






92 








U13 1 


300 


REPLACE ARG OF 1W0 WITH 




11W3 








U131 


310 


ARG OF IWl 




2 1W4 


90 






U13 1 


320 




91 


1 1W2 








U13 1 


330 


ERASE TALLY AND EXIT 




J9 


J35 






U13 1 


340 


INSERT COMPILED (FIND ARG.) 


92 


44H0 








U 1 3 1 


3 50 


DIVIDE JDEF 




J75 








U13 1 


360 


SAVE REMAINDER 




20W5 








U13 1 


370 






J6 








U131 


380 


ADD (FIND ARG.) TO HEAD 




J76 








U13 1 


390 


ADD REMAINDER 




1 1W5 








U131 


400 






J76 


J8 






Ul 3 1 


410 


COMPILE (FIND ARG) (0). FINAL 


U132 


40H0 








U132 


000 


ARGS. ARE DESIG. SYMBS. OUTPUT (0) 




J90 








U132 


010 


IS LIST OF INSTRS* WITHOUT TERM. 




J 1 36 
















40 Wl 








U132 


030 


CREATE OUTPUT LIST IN Wl. 




20W1 








U132 


040 






10X32 








U132 


050 


TEST IF ARGUMENT 




J10 








U132 


060 


IS DETERMINER. 




10X37 








U132 


070 






J2 








U132 


080 


ARGUMENT NOT A DETERMINER, 




70 


90 






U132 


090 



-81- 



SET UP Q-TALLY IN WO. 



SAVE ARGUMENT 

FIND ITS DETERMINER 



TALLY X151S=Q 

OF DETERMINER IN WO 



COPY SYMBOL OF ARGUMENT 



MAKE INSTRUCTION 1QS. 



INSERT INSTR. AT FRONT 

OF LIST 1W1. 

EXIT, LEAVING 1W1. 

SET UP INSTR. SU3LIST, 
AND MARK IT LOCAL. 
AND SAVE IT IN WO. 
SAVE DETERMINER 
FIND ITS DSCN 

FIND LIST OF ARGUMENTS 
AND PROCESS THEM. 



FIND JDEF 
COPY IT 

FIND LAST INSTRUCTION 
ERASE ITS LINK 



FIND END OF LIST 

INSERT LIST ON MAIN LIST 

INSERT SU3LIST IN LIST 

INSERT LIST ON MAIN LIST 
BRING IN LIST AND EXIT. 
COMPILE (FIND ARG.) 
AND INSERT IN SUBLIST. 



J90 




U132 


100 


J124 




U132 


110 


J50 




U132 


120 


UOHO 




U132 


130 


10X37 




U132 


135 


J10 




U132 


140 


J60 




U132 


145 


7093 




U132 


150 


12H0 




U132 


155 


10X151 




U132 


160 


J2 




U132 


170 


7094 




U132 


180 


11W0 




U132 


190 


J125 




U132 


200 


30H0 


94 


U132 


2 10 


30H0 




U132 


220 


10X45 




U132 


225 


J10 




U132 


230 


J74 




U132 


240 


11W0 




U132 


250 


10N1 




U132 


260 


U100 




U132 


270 


11W1 




U132 


300 


J6 




U132 


3 10 


J64 




U132 


320 


11W1 


J31 


U132 


330 


J90 




U132 


340 


J136 




U132 


350 


J50 




U132 


360 


40H0 




U132 


363 


10X20 




U132 


365 


J10 




U132 


366 


10X31 




U132 


380 


J10 






390 


10910 




,,1 of 


L.^n 


J100 








10X22 




i op 


t 


J10 




Too 
Ul 32 




J74 






7"f \ 


J136 




U132 


433 


40H0 




U132 


4 34 


J61 




U132 


435 


52H0 




U132 


436 


10X46 




U132 


437 


J14 




U132 


438 


11W0 




U132 


440 


J61 




U132 


445 


95 




U132 




uwo 




U132 


470 


11W1 




U132 


480 


95 




U132 


490 


11W1 


J31 


U132 


500 


U132 




U132 


510 


11W0 




U132 


520 



-82- 



INSERT LIST ON MAIN LIST 95 J4 U132 530 

INSERT LIST AT FRONT CF MAIN LIST 95 44H0 U132 540 

J75 U132 550 

40W2 U132 560 

20W2 U132 570 

J6 U132 580 

J76 U132 590 

11W2 U132 600 

J76 U132 610 

30W2 J8 U132 620 

U133 J45 U133 000 

COMPILE JDEF WITH NAME (2) 10X199 lW4=NAME U133 005 

LIST OF SEGMENTS (1) AND FLOW J73 lW3=SEG L U133 010 

CHART (0). OUTPUT (0) IS JDEF J136 lW2=FLOW U133 020 

NAME NEW JDEF J90 lW 1=TALLY U133 030 

J136 1W0=JDEF U133 040 

J24 U133 050 

ASSIGN NAME TO FIRST INSTRUCTION 11W3 U133 053 

J81 U133 054 

J81 U133 055 

11W4 U133 056 

10X41 U133 057 

Jll U133 058 

UW2 U133 060 

40W3 U133 070 

ATTACH SEGMENTS TO FLOW CHART 91 J60 U133 080 

7090 U133 090 

12H0 U133 100 

11W3 U133 110 

J60 U133 120 

70J7 U133 130 

60W3 U133 140 

52H0 U133 145 

10X22 U133 150 

Jll 91 U133 160 

ASSIGN ADDRESSES TO SEGMENTS 90 30H0 U133 170 

30W3 U133 180 

11W2 U133 190 

1092 U133 200 

J100 U133 210 

11W0 U133 215 

ASSEMBLE SEGMENTS IN NEW JDEF HW3 U133 220 

10910 U133 230 

J100 U133 235 

40H0 U133 240 

U122 J35 U133 245 

910 11W0 U133 251 

J6 U133 260 

J76 U133 262 

20W0 J4 U133 264 

ASSIGN ADDRESSES TO SEGMENT 92 64W5 1W5=SEGM U133 270 

FIND JDEF OF SEGMENT 10X22 U133 280 

J10 U133 290 

11W5 U133 310 



-83- 



()nd p of segment 

TE5T IF P = 7 

IF NOT, GO TO 93 
IF P = 7 

FIND SYMB OF SEGM 

TEST IF SYMB IS 0 

IF NOT » GO TO 94 
IF SO, GO TO 93 

FIND SYMB ON FLOW 

FIND ITS JDEF 

BRING IN (FIELD) = <SYMtJ) 

LINK SEGM TO SYM3 

BRING IN JDEF OF SEGM 
FIND LINK OF SEGM 

TEST IF LINK IS 0 

IF IT IS, EXIT 
IF LINK IS NOT C 

FIND SYMri ON FLOW 

FIND ITS JDEF 

BRING IN ( FIELD)* (LINK J 

LINK SEGM TO SYMd 
^IND SYMB ON FLOW 

FIND NAME OF SYMb 



10X43 U133 320 

J10 U133 330 

10N7 U133 340 

J2 U133 350 

7093 U133 360 
11W5 U133 370 
40H0 U133 375 

925 U133 376 

10X45 U133 380 

J10 U133 390 

40HO U133 400 

10N0 U133 410 

J2 U133 420 

7094 U133 430 
30H0 93 U133 440 

94 11W2 U133 450 

J6 U133 460 

920 U133 470 

10X22 U133 480 

J10 U133 490 

70J7 U133 500 

10X45 U133 510 

HW1 U133 520 

J60 U133 530 

60W1 U133 540 

52H0 U133 545 

U120 U133 550 

HW5 U133 560 

10X22 U133 570 

J10 J133 580 

93 11W5 U133 590 

10X46 U133 600 

J10 U133 610 

40H0 U133 620 

10N0 U133 630 

J2 U133 640 

7095 U133 650 
30H0 J8 U133 660 

95 UW2 U133 670 

J6 U133 680 

920 U133 690 

10X22 U133 700 

J10 U133 710 

70J7 U133 720 

10X46 U133 730 

HW1 U133 740 

J60 U133 750 

60W1 U133 755 

52H0 U133 756 

U120 J4 U133 760 

920 04J50 U133 765 
10921 U133 770 

J100 J30 U133 775 

921 40H0 U133 780 



84- 



COMPARE WITH 1W0 




10X41 












J 1 0 




U133 


790 






11 WO 




U133 


795 






J2 




U133 


800 


EXIT, STOP GENERATOR 




70 


J3 


U133 


805 


EXIT. CONTINUE GENERATOR 




30H0 


J4 


U133 


810 




925 


14X22 




U133 


815 






J10 




U133 


820 






J90 




U133 


825 






J136 




U133 


830 






40H0 




U133 


835 






10N7 




U133 


840 






10X43 




U133 


845 






Jll 


J65 


U133 


850 


COMPILE (0) FROM ITS DSCN 


U134 


J50 




U134 


000 


FIND LIST OF COMPILED ROUTINES 




10X196 




U134 


010 


AND SEEK SOURCE ROUTINE 




1090 




U134 


020 






J100 




U134 


030 






70 


J30 


U134 


040 


IF FOUND, COMPILE (0) 




11WO 




U134 


050 


FROM DSCN OF XOURCE 




U130 


J30 


U134 


060 


FIND SOURCE ROUTINE FOR (0) 


90 


40H0 




U134 


070 






10X20 




U134 


080 


FIND PROCESS OF DSCN 




J10 




U134 


090 






7091 




U134 


095 


OF SOURCE 




10X30 




U134 


100 






J10 




U134 


110 






7091 




U134 


115 






1 1WO 




U134 


120 






10X20 




U134 


130 






J10 




U134 


140 






10X30 




U134 


150 






J10 




U134 


160 


COMPARE WITH PROCESS OF (0) 




J2 




U134 


170 


EXIT WITH SIGNAL 




70 


J3 


U134 


180 


TO GENERATOR 


91 


30H0 


J4 


U134 


190 


COMPILE JDEF OF ROUTINE (0). 


U 1 3 5 


J41 




U135 


000 


OUT.(O) IS JDEF, IF EXISTS. SET H5. 




60W0 




U135 


010 


TEST IF IT EXISTS 


90 


10X22 




U135 


020 






J10 




U135 


030 


IF SO, EXIT WITH H5+ 




70 


J31 


U135 


040 






11W0 




U135 


050 


FIND CLOSEST DEFC I N I T I ON 




U136 




U135 


060 


IF NONE, EXIT WITH H5- 




70J31 




U135 


070 






40H0 




U135 


080 


FIND AND APPLY 




11W0 




U135 


090 


RELEVANT PROCESS 




U137 




U135 


100 






11W0 




U135 


110 


FIND CLOSEST DEFINITION 




U136 




U135 


120 


TEST PROGRESS 




U138 




U135 


140 


EXIT OR REPEAT. 




70J31 




U135 


150 






11W0 


90 


U135 


160 


FIND CLOSEST DEF. OF ROUTINE (0) 


U136 


J50 




U136 


000 






11W0 




U136 


010 



-85- 





10X20 




U136 


020 




J10 




U136 


030 




70 


90 


U136 


040 




1 1W0 




U136 


050 




10X24 




U136 


060 




J10 




U136 


070 




70 J30 


9 1 


U136 


080 


90 


30H0 




U136 


090 




10X20 


J30 


U136 


100 


91 


30H0 




U136 


110 




10X24 


J30 


U136 


120 


FIND AND APPLY RELEVANT PROCESS U137 


J6 




U137 


000 


TO ROUTINE (0) WITH DEF. (1) 


10X198 




U137 


010 


NO OUTPUT 


J6 




U137 


020 




J10 




U137 


030 




Jl 


0 


U137 


040 


TEST IF DEF (0) IS CLOSER TO U138 


10X197 




U138 


000 


JDEF THAN DEF ( 1 ) 


J6 




U138 


010 




J62 




U138 


020 




J6 




U138 


030 




J62 


0 


U138 


040 


COMPOSE FLOW CHART OF ROUTINE (0) U139 


J42 




U139 


000 


FROM ITS JDEF 


60W0 




U139 


010 




J90 




U139 


020 




J136 




U139 


030 


STORE NAME OF CHART IN Wl 


60 W 1 




U139 


040 




10X26 




U139 


050 


ASSIGN IT TO ROUTINE 1W0 


Jl 1 




U139 


060 




11 WO 




U139 


070 




10X22 




U139 


080 


FIND JDEF OF ROUTINE 


J10 




U139 


090 


COPY JDEF, MARK. IT LOCAL 


J74 




U139 


100 




J136 




U139 


110 


STORE IT IN W2 91 


60W2 




U139 


120 




J90 




U139 


130 


CREATE SEGMENT 


J136 




U139 


140 


AND STORE IT 


40H0 




U139 


150 




11W1 




U139 


160 


INSERT SEGMENT 


J6 




U139 


170 


AT END OF FLOW CHART 


J65 




U139 


180 




J6 




U139 


190 


MAKE JDEF THE 


10X22 




U139 


200 


X22 OF SEGM. 


Jl 1 




U139 


210 




1 1W2 




U139 


220 


FIND NEXT INSTRUCTION 92 


J60 




U139 


230 




7094 




U139 


240 




12H0 




U139 


260 


FIND ITS P 


10X43 




U139 


270 




J10 




U139 


280 




7090 




U139 


285 


TEST IF P=7 


10N7 




U139 


290 




J2 




U139 


300 


IF SO, DIVIDE SEGMENT 


7090 


93 


U139 


310 


AND REPEAT. 93 


J75 


91 


U139 


320 
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IF NOT » 


90 


12H0 


U139 


330 






10X46 


U139 


340 






J10 


U139 


350 


TEST IF LINK IS LOCAL 




7092 


U139 


360 






10X33 


U139 


3 70 


DIVIDE SEGMENT AND REPEAT* 














1 0N9 


U139 


390 






J2 


U 139 


400 


IF NOT » FIND NEXT INSTRUCTION 




7092 93 


U139 






94 


l ?w? 


m 


4?n 










_ 


1 DTATF NFYT ?F(^MFKIT 






IJ1 '-J9 


44n 


T F NIONF . F y T T 




7 
















PUT I T«; NAMF TNI U/O 








A7A 






10X22 


lit Q 




FIND ITS JDEF 




J10 






AND PUT IT IN W2 










FIND FIRST INSTRUCTION 






111 4 9 


n 












F T MO IT? mamp 




no 


111 


CO 

n 


TF MOWF. c< IP TO 






u : g 








1 wn 




550 










560 


ASSIGN IT AS SEGMENT NAME 




10X41 


U139 


570 






Jl 1 


U139 


580 




95 


1 lk/2 


U139 


5 90 


FIND LAST INSTRUCTION 




J6 1 


U139 


A?n 








u 11 Q 




STORE IT IN W2 








n 












tf?t if it? p-7 

ICoi Ir 1 1 J r — l 




no 










o 


ii^q 


645 






ION 7 


n to 


630 












IF WOT • Qk' I D TO Qt 
Ir INU 1 » OMr 1 U 7D 




7096 


U139 




IF SO» SET P=7 IN SEGMENT 




1 1 WO 


U139 


















10X43 


U139 


700 






Jl 1 


U139 


710 


ASSIGN SYMB» OF INSTRUCTION 










TO SEGMENT 




1 1 W2 


U 1 39 


730 
















J 1 0 


U139 


7 50 








U 1 39 


760 






Jl 1 97 


U139 


770 


SET P=0 IN SEGMENT 


96 


11W0 


U139 


780 






10N0 


U139 


790 






10X43 


U139 


800 






Jll 97 


J139 


810 


ASSIGN LINK OF INSTRUCTION 


97 


11W0 


U139 


820 


TO SEGMENT 




11W2 


U139 


830 






10X46 


U139 


840 






J10 


U139 


850 
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10X46 






U139 


860 






Jll 


9 8 




U139 


870 


EXIT 


99 


30H0 


J32 




U139 


880 


COMPILE JDEF OF ROUTINE (0) 


U140 


J50 






U140 


000 


FROM ITS SDSC. NO OUTPUT 




11 WO 






U140 


001 


COMPILE IT 




930 






U140 


003 


ASSIGN A NAME TO IT 




910 






U140 


005 


ASSIGN A TERMINATION TO IT 




920 


J30 




U140 


007 




930 


J42 






U140 


009 


FROM ITS SDSC • NO OUTPUT. 




60W0 




1W0=(0) 


U140 


010 






10X24 






U140 


020 


FIND SDSC. 




J10 






U140 


030 


FIND INPUT-OUTPUT DIFFERENCE. 




X7 






U140 


040 






40H0 






U140 


050 






10X50 






U140 


055 






J10 






U140 


056 


TEST FOR NO DIFFERENCE. 




10X80 






U140 


060 






J2 






U140 


070 






7090 






U140 


080 


IF NO DIFFERENCE 




J32 






U140 


090 


EXIT WITH H5 = - 




J8 


J3 




U140 


095 


IF DIFFERENCE EXISTS* 


90 


11W0 






U140 


100 


PRODUCE NEW ROUTINE WITHOUT DIFF.» 




U141 






U140 


110 


STORE IT IN Wl. 




60W1 






U140 


120 


CONSTRUCT SDSC FOR A NEW ROUTINE, 




11W0 






U140 


130 


K1W0) KIWI). 




U144 






U140 


140 


SAVE NEW ROUTINE 




60W2 






U140 


150 


COMPILE ITS JDEF 




930 






U140 


160 


IF NULL, SKIP TO 91 




7091 






U140 


165 


BRING IN NEW ROUTINE 




11W2 






U140 


170 


PREFIX JDEF OF NEW ROUTINE TO JDEF 




11W1 






U140 


180 


OF 1W1, AND MODIFY SDSC OF 1W1. 




U145 






U140 


190 




91 


11W2 






U140 


195 


ERASE PREFIXED ROUTINE 




J72 






U140 


200 






11 WO 






U140 


210 


CONSTRUCT SDSC FOR A NEW ROUTINE, 




11W1 






U140 


220 


0( 1W1 ) 0( 1W0 ) . 




U146 






U140 


2 30 


SAVE NEW ROUTINE 




60W2 






U140 


240 


COMPILE ITS JDEF. 




930 






U140 


250 


IF NULL, SKIP TO 92 




7092 






U140 


255 


BRING IN NEW ROUTINE 




11W2 






U140 


260 


SUFFIX JDEF OF NEW ROUTINE TO JDEF 




11W1 






U140 


270 


OF 1W1, AND MODIFY SDSC OF lWl. 




U147 






U140 


280 


ERASE SUFFIXED ROUTINE 


92 


11W2 






U140 


285 






J72 






U140 


290 


BRING IN 1W0. 




11 WO 






U140 


300 


FIND JDEF OF lWl, 




11W1 






U140 


310 






10X22 






U140 


320 






J10 






U140 


330 


COPY IT. 




J74 






U140 


340 






J136 






U140 


3 50 


ASSIGN COPY AS JDEF OF lWO. 




10X22 






U140 


360 






Jll 






U140 


370 






11W1 






U140 


380 
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ERASE 1W1 

AND EXIT WITH H5 = + 
FIND JDEF. 

FIND FIRST INSTRUCTION. 

IF IT HAS NO NAME » 

ASSIGN IT V(X25) OF ROUTINE. 

IF IT HAS NAME, EXIT. 



TEST IF LAST INSTRUCTION 
HAS A LINK. 



IF NOT, ASSIGN LINK 0 
IF SO, EXIT. 

PRODUCE ROUTINE FROM (0) 
WITHOUT DIFFERENCE (1). 
OUTPUT (0) IS NEW ROUTINE. 
FIND ROUTINE RELEVANT TO DIFF. 

COPY IT AND MARK COPY LOCAL. 
PUT RELEVANT ROUT. IN W2 



PUT ITS SDSC IN W3 
SAVE IT 

LOCATE ITS VARIABLE CELL. 
IF NONE, GO TO 90, AFTER J8 
FIND ITS NAME 
FIND ITS VARIABLES 



FIND VARIABLE OF DIFFERENCE, 
SUBSTITUTE IT FOR VAR • CELL NAME. 
BRING IN SDSC OF REL. ROUT • 
FIND VARIABLE OF DIFF. 



LOCATE CELL OF SDSC WITH THIS NAME 
IF NONE, GO TO 91. 



J72 

J32 J4 

910 11W0 
10X22 

J10 

J81 
40H0 
10X41 

J10 
70 911 
11 WO 
10X25 

J10 
10X41 Jll 

911 30H0 J8 
920 11W0 

10X22 

J10 
40H0 

J61 
52H0 
10X46 

J10 
70U122 
30H0 J8 
U141 J44 

J21 
11W1 

U150 

J74 

J136 
60W2 
10X24 

J10 
60W3 
40H0 

U152 
7093 
52H0 
10X41 

J10 
11W1 
10X41 

J10 

U153 
90 HW3 
11W1 
10X41 

J10 

U151 
7091 
52H0 
10X41 

J10 



U140 390 
U140 400 
U140 410 
U140 420 
U140 430 
U140 440 
U140 450 
U140 455 
U140 456 
U140 460 
U140 470 
U140 480 
U140 490 
U140 500 
U140 510 
U140 520 
U140 530 
U140 540 
U140 550 
U140 560 
U140 570 
U140 580 
U140 590 
U140 600 
U140 610 

(0) =1W0 U141 000 

(1) =lWl U141 OlO 

U141 020 
U141 030 
U141 040 
U141 050 
U141 060 
U141 070 
U141 080 
U141 090 
U141 100 
U141 110 
U141 120 
U141 130 
U141 135 
U141 136 
U141 140 
U141 150 
U141 160 
U141 170 
U141 180 
U141 190 
U141 200 
U141 210 
U141 220 
U141 230 
U141 232 
U141 234 
U141 235 
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BRING IN SDSC OF REL. ROUT. 
FIND SDSC OF 1W0 

SUB. NAMES OF (0) FOR VAR. OF W3 

FIND LIST OF AFFECTED CELLS OF 1WO 

LOCATE NEXT CELL 

FIND CELL 
FIND ITS NAME 

STORE IT IN W4 
FIND W3 

LOCATE CELL OF W3 WITH SAME NAME 
IF NONE, FIND NEXT. 

SUBSTITUTE NAMES OF SDSC <WO) FOR 
VARIABLES OF (W3) IN CELL ( W4 ) 



FIND ROUTINE RELEVANT TO Wit 
FIND MODIFIED COPY. 
MAKE JDEF OF (0) FROM { 1) • 
LEAVE NEW ROUTINE 



CONSTRUCT SDSC FOR A NEW ROUTINE 
(0) OF (1) TO (2) OF (3). ( 0 ) =NAME 

OF NEW ROUTINE. 
COPY X71 OF 1W1 
REPLACE 1W1 WITH ITS X71 



REPLACE 1W3 WITH ITS X71 
ERASE HALF OF 1W2 





1 1W3 




U141 


240 




1 1 WO 




U141 


250 








U141 


260 








U14 1 


270 








U141 


280 




in 




U14 1 


2 90 




10X24 






\ ?n 




J10 




m z^i 
1^1 






10X71 






320 








U141 


3 30 








U 14 1 


340 








U14 1 


3 50 








U141 


360 




10X41 




U141 


370 




J 1 0 




U141 


380 








U141 


390 




1 1 W 3 




U141 


400 








U141 


410 




U151 




U141 


420 




7092 




U141 


430 








U141 


440 




• 




U141 


450 








U14 1 


460 








U 14 1 


470 




10X24 




U 14 1 


480 








U14 1 


490 




ii ^ 
U154 






5 00 


95 


1 1W1 




U141 


510 








U141 


520 








U141 


530 








U141 


540 




1 1W2 


J34 


U141 


5 50 


93 


30H0 




U141 


560 




30H0 


90 


U141 


565 


94 


30H0 


95 


U141 


570 


U142 


J53 




U142 


000 




1 1W1 




U142 


010 




10X24 




U142 


015 




J10 




U142 


016 




10X71 




U142 


020 




J10 




U142 


030 




J74 






035 




J136 




U142 


0 36 








U142 


040 








U142 


050 




10X24 




U142 


055 




J10 




U142 


056 




10X71 




U142 


060 




J10 




U142 


070 




J74 




U142 


075 




J136 




U142 


076 




60W3 




U142 


080 




11W2 




U142 


090 




U143 




U142 


100 
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11W1 




U142 


110 






11W0 




U142 


120 


ERASE HALF OF 1W0 




U143 




U142 


130 






11W0 




U142 


140 






10X75 




U142 


150 


TEST IF 1W1 NEEDS REVERSAL 




J2 




U142 


160 






70 


90 


U142 


170 






1 1 A 1 




U142 


180 


IF SO, REVERSE 




11W0 




U142 


190 






U148 


9C 


U142 


200 




90 


11W2 




U142 


210 






10X76 




U142 


220 


TEST IF 1W3 NEEDS REVERSAL 




J2 




U142 


2 30 






70 


91 


U142 


240 






11W3 




U142 


250 


IF SO, REVERSE 




Uw2 




U142 


260 






U148 


91 


U142 


270 


COMBINE LISTS OF AFFECTED CELLS 


91 


11W3 




U142 


280 


INTO NEW LIST. 




11W1 




U142 


290 






U149 




U142 


300 


ASSIGN COMBINED LIST 




J90 




U142 


310 


AS X71 OF NEW ROUTINE. 




60W0 




U142 


320 






J6 




U142 


330 






J9C 




U142 


332 






J136 




U142 


334 






60W2 




U142 


336 






J6 




U142 


338 






10X71 




U142 


340 






Jll 




U142 


350 






11W2 




U142 


352 






10X24 




U142 


354 






Jll 




U142 


356 






11W0 


J33 


U142 


360 


ERASE ATTRIBUTE NCT-(O) OF 


J143 


10X75 




U143 


000 


ITEMS OF ( 1 ) . NO OUTPUT 




J2 




U143 


010 






7090 




U143 


020 


FIND ATTRIBUTE NOT-(O). 




10X76 


9 1 


U143 


030 




90 


10X75 


91 


U143 


040 




91 


J50 




U143 


050 


ERASE IT. 




1092 




U143 


060 






J100 


J30 


U143 


070 




92 


11W0 




U143 


080 






J14 


J4 


U143 


090 


CONSTRUCT SDSC FOR A NEW ROUTINE 


U144 


J50 




U144 


000 


X75(0) TO X75( 1 )=OUTPUT ROUTINE 




10X75 




U144 


010 






11W0 




U144 


020 






10X75 












U142 


J30 


U144 


040 


PREFIX JDEF OF (1) TO JDEF OF (0) 


U145 


J51 




U145 


000 


IN (0) , AND MODIFY SDSC. 




11 WO 




U145 


010 






10X22 




U145 


02q 


FIND JDEF OF ( 1 ) , 




J10 




U145 


030 


SAVE IT. 




40H0 




U145 


040 


DIVIDE IT AFTER HEAD, 




J75 




U145 


050 
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SAVE TAIL IN W2. 
FIND JDEF OF ( 0 ) « 



INSERT IT AFTER HEAD OF JDEF (1). 
ADD TAIL. 



CONSTRUCT SDSC FOR A NEW ROUTINE 
X76<0> TO X76< 1 )=OUTPJT ROUTINE 



SUFFIX JDEF OF (1) TO JDEF OF 
(0) IN (0) ♦ AND MODIFY SDSC 



FIND JDEF OF (0) 
LOCATE ITS LAST SYMBOL 



FIND JDEF OF ( 1 ) 



INSERT AFTER JDEF OF (0). 

REVERSE ATTRIBUTES (0) OF ITEMS 
ON ( 1 ) . 

FIND ATTRIBUTE OPPOSITE TO (0). 

STORE (0) IN Wl» OPPOSITE IN WO. 
GENERATE ITEMS AND REVERSE. 



FIND VALUE OF ATTRIBUTE, 
COPY IT, 

AND ASSIGN AS VALUE OF OPPOSITE 



ERASE ATTRIBUTE. 

COMBINE LISTS OF AFFECT cD CELLS, 
(0) =LX7 5, ( 1 )=LX76. OUTPUT* NEW LIST. 
1W0=NEW LIST, 1W1=LX75, 
1W2=LX76. 

COMBINE PAIRS 



90 
91 



40W2 




U145 


060 


20W2 




U145 


070 


UW1 




U145 


080 


10X22 




U145 


090 


J10 




U145 


100 


J74 




U145 


105 


J136 




U145 


106 


J76 




U145 


110 


11W2 




U145 


120 


J76 




U145 


130 


30H0 


J32 


U145 


135 


J50 




U146 


000 


10X76 




U146 


010 


11 WO 




U146 


020 


10X76 




U146 


030 


U142 


J30 


U146 


040 


J51 




U147 


000 


11 WO 




U147 


010 


10X22 




U147 


020 


J10 




U147 


030 


J61 




U147 


040 


11W1 




U147 


050 


10X22 




U147 


060 


J10 




U147 


070 


J74 




U147 


075 


J136 




U147 


076 


J76 




U147 


080 


30H0 


J31 


U147 


085 


40H0 




U148 


000 


10X75 




U148 


010 


J2 




U148 


020 


70 


90 


U148 


030 


10X75 


91 


U148 


040 


10X76 


91 


U148 


050 


J51 




U148 


060 


1092 




U148 


070 


J100 


J31 


U148 


080 


40H0 




U148 


090 


40H0 




U148 


100 


11W1 




U148 


1 10 


J10 




U148 


120 


J74 




U148 


130 


J136 




U148 


140 


11W0 




U148 


145 


Jll 




U148 


150 


11W1 


J14 


U148 


160 


J90 




U149 


000 


J136 




U149 


010 


J46 




U149 


020 


J22 




U149 


030 


11W1 




U149 


040 


1090 




U149 


050 


J100 




U149 


060 


11W1 




U149 


070 
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ADD REMAINDER OF LX75 

ADD REMAINDER OF LX76 

COMBINE PAIRS 

GENERATE MEMBERS OF LX76 



FIND SYMBOL OF LX75 



FIND SYMBOL OF LX76 

COMPARE FOR EQUALITY. 

IF UNEQUAL TRY NEXT OF LX76. 

IF EQUAL, 

DELETE FROM LX75, 



DELETE FROM LX76. 



ADD LX75 TO LX76, 



IF PAIR IDENTICAL, DELETE 
AND INSERT PAIR IN NEW LIST. 



STOP LX76 GENERATOR. 
ADD REMAINDER OF LX75 



ADD REMAINDER OF LX76 



ADD REMAINDER OF 1W3 TO 1W2 



TEST FOR NORMAL FORM 
IF NORMAL, DELETE 



1091 

J100 
11W2 
1092 

J100 
11W0 
24W3 
11W2 
1093 

J100 
24W4 
11W3 
10X41 

J10 
11W4 
10X41 

J10 

U107 
70J4 
11W1 
11W3 

U169 
11W2 
11W4 

U169 
11W4 
40H0 
11W3 
10X75 

J10 
10X75 

Jll 

910 

70 

11W0 

J6 

J64 
11W1 
14X76 
10X75 

94 
11W2 
14X75 
10X76 

94 
24W4 
20W5 
20W6 
60W3 
11W4 

J10 

96 
7095 
11W6 



U149 080 
U149 090 
U149 100 
U149 110 
U149 120 
U149 130 
U149 140 
U149 150 
U149 160 
U149 170 
U149 180 
U149 190 
U149 200 
U149 210 
U149 220 
U149 230 
U149 240 
U149 250 
U149 260 
U149 270 
U149 280 
U149 290 
U149 300 
U149 310 
U149 320 
U149 330 
U149 340 
U149 350 
U149 360 
U149 370 
U149 380 
U149 390 
U149 395 
U149 396 
U149 400 
U149 410 
U149 420 
U149 430 
U149 435 
U149 440 
U149 450 
U149 460 
U149 465 
U149 470 
U149 480 
U149 490 
U149 500 
U149 505 
U149 510 
U149 520 
U149 530 
U149 540 
U149 550 
U149 560 
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11W3 




U149 


570 




U169 


0 


U149 


580 


TC MAT M^lDyAI Q ^ 


1 1 W3 




U149 


590 


CONSTRUCT PAIR ATTRIBUTE* 


J90 




U149 


600 




J136 




U149 


610 




40H0 




U149 


620 




10X1 




U149 


630 


INSERT IT» 






U149 


640 




1 1W5 




U149 


650 




Jll 




U149 


660 


ADD TO 1W0 


1 1 WO 




U149 


670 


AND DELETE FROM 1W3» 


11W3 




U149 


680 




J64 


98 


U149 


690 


TCCTTFMODMAI Qfi 
1 to 1 lr NUKMML '° 


44H0 




-U149 


700 


J81 




U149 


710 




40H0 




U149 


720 


TEST IF FIRST SYMBOL IS XI 


10X1 




U149 


730 




J2 




U149 


740 


IF S0» EXIT WITH H5+« 


70 


97 


U149 


750 


1 to 1 lr rit\ol o T riu jl i o a £. • 


10X2 




U149 


760 


J2 




U149 


770 


TC MAT. PVTT ulTH H ^ — - 

1 r INU 1 ♦ laI 1 Hi i n n3 • 


70J8 




U149 


780 




J82 




U149 


790 


10X1 




U149 


800 


EXIT W I TH H5 SET 


J2 


o 


U149 


810 


97 


30HO 


J8 


U149 


830 


98 


J4 


99 


U149 


840 


910 


44H0 




U149 


845 




10X75 




U149 


850 




J10 




U149 


855 




40W0 




U149 


860 




20 W0 




U149 


865' 




40H0 




U149 


870 




10X76 




U149 


875 




J10 




U149 


880 


914 


J60 




U149 


890 




70911 




U149 


895 




12H0 




U149 


900 




11 WO 




U149 


905 




J60 




U149 


910 




70912 




U149 


915 




60W0 




U149 


920 




5 2 W0 




U149 


925 




U107 




U149 


930 




70913 


914 


U149 


935 


913 


30H0 


J30 


U149 


940 


912 


30H0 




U149 


945 




30H0 


913 


U149 


950 


911 


30H0 




U149 


955 




11W0 




U149 


960 




J60 




U149 


965 




J5 


913 


U149 


970 


915 


30H0 


J3 


U149 


975 


FIND ROUTINE RELEVANT U150 


40H0 




U150 


000 
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TO DIFFERENCE (0) 

FIND TYPE OF DIFFERENCE 



FIND LIST OF RELEVANT ROUTINES 



FIND TYPE OF AFFECTED CELL 



FIND RELEVANT ROUTINE 
LOCATE AFFECTED CELL (0) OF 
SDSC (1). 

FIND LIST OF AFFECTED CELLS 

LOCATE NEXT CELL 

IF NONE, EXIT WITH H5- 

FIND ITS NAME 



COMPARE WITH (0). 

EXIT OR CONTINUE 

LOCATE VARIABLE AFFECTED CELL 

IN SDSC (0) 

LOCATE NEXT CELL 

IF NONE, EXIT WITH H5- 

FIND ITS NAME 

FIND ITS TYPE 

TEST IF VARIABLE 

IF YES, EXIT WITH H5+ 
SUBSTITUTE (0) FOR VARIABLE (1) 
THROUGHOUT SDSC(2). 
FIND LIST OF AFFECTED CLESS, 
AND PROCESS IT. 

SAVE CELL 

FIND ITS NAME 

COMPARE IT WITH VARIABLE (1). 
IF UNEQUAL, SKIP TO 91 
IF EQUAL, SAVE CELL, 
ERASE ITS NAME, 

AND SUBSTITUTE (0). 



10X50 

J10 
10X90 

J6 

J10 

J50 
10X41 

J10 
10X32 

J10 
11W0 

J6 

J10 J30 
U151 J50 
10X71 
J10 

90 J60 
70J30 
12H0 
10X41 

J10 
11 WO 

U107 
7090 J30 
U152 10X71 

J10 

90 J6C 
700 
12H0 
10X41 

J10 
10X32 

J10 
10X39 

J2 

7090 J4 
U153 J51 
10X71 

J10 
1090 

J100 J31 
90 40H0 
10X41 

J10 
11W1 

U107 
7091 
40H0 
10X41 

J14 
40H0 
11W0 
10X41 

Jll 91 



U150 010 

U150 020 

U150 030 

U150 040 

U150 050 

U150 060 

U150 065 

U150 066 

U150 070 

U150 030 

U150 090 

U150 100 

U150 110 

U151 ^000 

U151 010 

U151 020 

U151 030 

U151 040 

U151 050 

U151 060 

U151 070 

U151 080 

U151 090 

U151 100 

U152 000 

U152 010 

U152 020 

U152 030 

U152 040 

U152 050 

U152 060 

U152 070 

U152 080 

U152 090 

U152 100 

U152 110 

6Wl=VAR. U153 000 

1W0=SUB. U153 010 

U153 020 

U153 030 

U153 040 

U153 050 

U153 060 

U153 070 

U153 080 

U153 090 

U153 100 

U153 110 

U153 120 

U153 130 

U153 140 

U153 150 
U153 160 

U153 170 
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FIND INPUT OF CELL, 



AND MA<E SUBSTITUTIONS. 

FIND OUTPUT OF CELL ♦ 
AND MAKE SUBSTITUTIONS. 
SUBSTITUTE FOR CONTENTS OF LIST 
IF NO MORE CELLS* EXIT 
FIND FIRST SYMBOL 
AND COMPARE WITH 1W1 

IF UNEQUAL* FIND NEXT 
IF EQUAL 

MAKE SUBSTITUTION 



SUBSTITUTE NAMES OF SDSC (0) FOR 
VARIABLES OF SDSC (1) IN CELL 
NAMED (2) OF (1). 
LOCATE CELL 1W2 IN SDSC 1W0 

IF NONE* EXIT. 

PUT LOC. OF CELL OF WO IN W3 
LOCATE CELL W2 IN SDSC Wl 
ERROR STOP 

PUT LOC OF CELL OF Wl IN W4 



FIND OUTPUT LIST OF WO CELL 



FIND OUTPUT LIST OF Wl CELL. 
AND STORE IN W5 



LOCATE NEXT SYMBOL OF CELL 0 
IF NONE, EXIT 



LOCATE NEXT SYM30L OF CELL 1 
IF NONE, EXIT VIA 91 



91 40H0 
10X75 

J10 
92 
10X76 
J10 

92 J4 

92 4J60 
70J8 
12H0 
11W1 

U107 
7092 
40W2 
60W2 
11WO 

J74 

J136 
21W2 

30W2 92 
(J154 J46 

J22 
11W0 
11W2 

U151 
70J36 
20W3 
11W1 
11W2 

U151 
70J7 
20W4 
12W3 
10X76 

J10 
12W4 
10X76 

J10 
20W5 

90 
12W3 
10X75 

J10 
12W4 
10X75 

J10 
20W5 

90 J36 
90 4J60 
70J8 
60W6 
11W5 

J60 
7091 



U153 180 
U153 190 
U153 200 
U153 210 
U153 220 
U153 230 
U153 240 
U153 250 
U153 260 
U153 270 
U153 300 
U153 310 
U153 320 
U153 330 
U153 340 
U153 350 
U153 355 
U153 356 
U153 360 
U153 370 
1W0=SDSC0 U154 000 
1W1=SDSC1 U154 010 
1W2=CELL U154 020 
1W3=CELL0 U154 030 
1W4=CELL1 U154 040 
1W5=0UT.1 U154 050 
U154 060 
U154 070 
U154 080 
U154 090 
U154 100 
U154 110 
U154 120 
U154 130 
U154 140 
U154 150 
U154 160 
U154 170 
U154 180 
U154 190 
U154 200 
U154 210 
U154 215 
U154 220 
U154 230 
U154 240 
U154 250 
U154 260 
U154 270 
U154 280 
U154 285 
U154 290 
U154 300 
U154 310 
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STORE LOCATION IN W5 




60W5 




U154 


320 






12H0 




U154 


330 


FIND TYPE OF SYMBOL OF 1 




10X32 




U154 


340 






J10 




U154 


350 


TEST IF A VARIABLE 




10X39 




U154 


360 






J2 




U154 


370 


IF NOT, GO TO 90 VIA 93 




7092 




U154 


380 






52H0 




U154 


390 


BRING IN SDSC 1 




11W1 




U154 


420 






J6 




U154 


430 






12W6 




U154 


440 


SUBSTITUTE THROUGH SDSC 1 




U153 


90 


U154 


470 




91 


30H0 


J8 


U154 


480 




92 


30H0 


90 


U154 


490 


MAKE JDEF OF (0). (0) IS ROUTINE 


U155 


J47 




U155 


000 






J21 




U155 


005 


WITH SDSC MODIFIED FROM (1). 




11W0 




U15 5 


010 






11W1 




U155 


020 


FIND JDEF OF ( 1 ) 




10X22 




U155 


030 






J10 




U155 


040 






J74 




U155 


045 






J136 




U155 


046 


ASSIGN IT AS JDEF OF (0) 




10X22 




U155 


050 






Jll 




U155 


060 


BRING IN LISTS OF AFFECTED CELLS 




93 


91 


U155 


065 




93 


04J0 




U155 


066 






11W0 




U155 


070 






10X24 




U155 


080 


FIND SDSC OF (0) 




J10 




U155 


090 






10X71 




U155 


100 


FIND LIST OF AFFECTED CELLS 




J10 




U135 


110 


AND PUT IN W2 




20W2 




U155 


120 






11W1 




U155 


130 






10X24 




U155 


140 


FIND SDSC OF ( 1 ) 




J10 




U155 


150 






10X71 




U155 


160 


FIND LIST OF AFFECTED CELLS 




J 1.0 




U155 


170 


AND PUT IN W3 




60W3 




U155 


180 






11W2 


0 


U155 


190 


FIND NEXT CELL OF (0) 


91 


J60 




U155 


2G0 






7090 




U155 


210 






11W3 




U155 


220 


FIND NEXT CELL OF (1) 




J60 




U155 


230 






60*3 




U155 


240 






70J7 




U155 


250 






52H0 




U155 


260 






40H0 




U155 


220 


FIND ITS NAME 




10X41 




U155 


280 






J10 




U155 


290 


TEST IF IT IS A VARIABLE 




10X32 




U155 


300 






J10 




U155 


310 






10X39 




U155 


320 






J2 




U155 


330 






7092 




U155 


340 
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SO, STORE IN W4 
STORE NAME OF SYMBOL OF (0) IN W5 

SUBSTITUTE W5 FOR W4 



THROUGHOUT (0) 



92 
90 



SUBSTITUTE FOR VARIABLES IN CELLS 



PUT X75 OF W2 IN W6 



PUT X75 OF W3 IN W7 

SUBS. FOR VARIABLE IN X75 



PUT X76 OF W2 IN W6 



PUT X76 OF W3 IN W7 

SUBS. FOR VARIABLE IN X76 



EXIT 

FIND VARIABLES AND SUBSTITUTE 



FIND NEXT IN W6 
IF NONE, EXIT 



20W4 






3 50 


12H0 




U 1 5 5 




20W5 




U155 




99 


9 1 






04J0 




ICC 

U 1 5 5 




11W0 




U 1 5 5 


oc 

3 85 


10X22 




U 1 5 5 


3 8 5 


J10 




U155 


386 


11W4 




U155 


390 


10X41 




U155 


395 


J10 




U155 




11W5 




U 1 5 5 


400 


10X41 




U155 


405 


J10 






406 


U156 


0 


U 1 5 5 


f 


30H0 


9 1 


U155 


£ in 


30H0 








30HO 




m ks 


2sn 


93 




II T c c 

1 1 X 


2a 


J60 








7095 




Tec 




60W2 




IKK 


2on 


52H0 




IRC 




10X75 




IRK 
U155 


Knn 
500 


J10 




U155 


5 10 


20W6 




U155 


520 


J60 




U155 


5 30 


70J7 




U155 


540 


60W3 




U15 5 


5 50 


52H0 




U15 5 


560 


10X75 




Ul 5 5 


5 70 


J10 




U155 


580 


20W7 




U155 


590 


96 




U155 


600 


1 2 W 2 




U155 


610 


10X76 




U155 


620 


J10 






630 


20W6 




U155 


640 


1 2 W3 




U155 


650 


10X76 




U155 


660 


J10 




U J KK 


670 


20W7 




U155 


680 


96 




U 5 


7n° 


11W3 




U15 5 


700 


11W2 


94 


U15 5 


710 


30H0 




U155 


720 


30H0 


J37 


U 1 5 5 


7 30 






U155 


740 


11W6 




U155 


745 


J60 




U155 


750 


70J8 




U155 


760 


60W6 




U155 


770 


11W7 




U155 


780 


J60 




U155 


790 
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70 J7 




U155 


800 




60W 7 




U155 


810 


TCCT TP lUCVT T M i.17 TC U4DIA3I C 


12H0 




U155 


620 








U 1 5 5 


8 30 




J 1 0 










10X39 




U155 


8 50 




J2 




U155 


860. 


IF NOT, FIND NEXT 


7098 




U155 


870 


IF SO, 


52H0 




U155 


880 


SUBSTITUTE W5 FOR W4 


20W4 




U155 


890 


THROUGHOUT WO 


52H0 




U155 


900 




20W5 




U155 


910 




1 1 WO 




U155 


Q -? 




10X22 




m W 






J10 










1 1 W4 










1 1 W5 










U156 


96 




Q?fi 


98 


30H0 




ui 








96 






SUBSTITUTE SYMBOL (0) FOR U156 


J52 








VARIABLE (1) IN JDEF OF (2) 


1 1 W2 




III Sft 


010 


FIND NEXT LINE OF JDEF 90 






1 n =>t 




IF NONE, EXIT 


7091 




U156 


n3n 




12HQ 




U156 


nan 


FIND ITS SYMd. 


10X45 




U156 


050 




J10 




U156 


060 


COMPARE SYMd WITH 1W1 


1 1W1 




Ul 56 


070 




U107 




U156 




IF UNEQUAL, FIND NEXT 


7090 




Ul 56 


ngn 


IF EQUAL, 


12H0 




U156 


100 


COPY 1W0 AS NEW SYMB 


1 1 WO 




U156 


1 10 


FOR LINE OF JDEF 


J74 




U156 


120 




J136 




Ul 56 


130 




10X45 




U156 


1 40 




Jl 1 


90 


U156 


210 


91 


30H0 


J32 


U156 


220 


DELETE CAREFULLY SYMBOL (0) U169 


J41 




U169 


000 


FROM LIST (1) 


20 WO 




U169 


010 




40H0 




U169 


020 




1 1W0 




U169 


030 


LOCATE (0) ON (1) 


J62 




U169 


040 




70 J30 




U169 


050 


DIVIDE LIST AFTER LOC { 0 ) 


J75 




U169 




PUT REMAINDER IN Wl 


20W 1 




U 169 


070 


DELETE LAST SYMBOL FROM (1) 


40H0 




U169 


080 




J70 




U169 


090 


LOCATE LAST SYMBOL OF (1) 


J61 




U169 


100 




11W1 




U169 


110 


REATTACH REMAINDER 


J76 




U169 


120 




30H0 


J31 


U169 


130 


FIND BIGGEST DIFFERENCE X5 


J43 




X5 


000 


BETWEEN DSNS (0) AND (1) 


20W0 




X5 


010 




60W1 




X5 


020 
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FIND PROCESS OF ( 1 ) 



FIND PROCESS OF (0) 
COMPARE PROCESStS 
IF EQUAL, COMPARE ARGUMENTS 
IF UNEQUAL. SIGNAL X62 

FIND ARG. LISTS OF (0) AND (1) 90 

FIND NEXT ARGS. OF (0) AND (1) 92 

NONE « GO TO 91 

TEST ARGUMENT TYPES 

IF UNEQUAL. EXIT WITH SIGNAL 

ALL TYPES EQUAL. TEST ARGS. 91 

FIND NEXT ARGS. OF (0) AND (1) 93 

NONE. GO TO 94 



FIND ARGUMENT TYPt 



TEST IF DETERMINER 

IF NOT, FIND NEXT ARG. 

IF SO, FIND 3IGGEST DIFFERENCE 

SAVE DIFFERENCE SIGNAL 

TEST IF NO DIFFERENCE 

IF DIFFERENCE, EXIT WITH SIGNAL 
NO DIFFERENCE, FIND NEXT ARG. 
NO DETERMINER DIFFERENCES 
FIND NEXT ARGS. OF (0) AND (1) 
NONE, EXIT WITH X55 

TEST IF NAMES 



SIGNAL DIFFERENT NAMES 

SIGNAL DIFFERENT LOCATIONS 96 

EXIT, NO DIFFERENCE 95 

FIND ARGUMENT LISTS 91 



FIND LIST OF (0) 
AND PUT IN W2. 



FIND LIST OF ( 1 ) , 
AND PUT IN W3. 
FIND NEXT ARGS. OF (0) AND (1) 911 
FIND NEXT OF (0) 
IF NONE, SET H5 - 



FIND NEXT OF < 1 ) 



10X30 




X5 


030 


J10 




X5 


0^0 


1 1 WO 




X5 


050 






X5 


060 


JlO 




X5 


070 


J2 




X5 


060 


70 


90 


X5 


090 




J33 


X5 


100 


10 9 10 




X5 


110 


911 




X5 


120 


7091 




X5 


130 


X6 




X5 


140 




92 


X5 


150 


7 °910 




X5 


160 


911 




X5 


170 






X5 


180 


40HO 




X5 


190 


10X32 




X5 


200 


JlO 




X5 


210 


70 J7 




X5 


220 






X5 


230 


J2 




X5 


240 


7093 




X5 


250 


X 5 




X5 


260 






X5 


270 


10X55 




X5 


280 


J2 




X5 


290 


7097 




X5 


300 




9 3 


X5 


310 


910 




X5 


320 


911 




X5 


330 


7095 




X5 


340 


40H0 




X5 


350 


10X36 




X5 


360 


J2 




X5 


3 70 


7096 




X5 


380 


10X66 


J33 


X5 


390 


10X67 


J33 


X5 


400 


10X55 


J33 


X5 


410 


1 1W0 




X5 


420 


10X31 




X5 


430 


JlO 




X5 


440 






X5 


450 


11W1 




X5 


460 


10X31 




X5 


470 






X5 


480 


20W3° 


o 


X5 


490 


11W2 




X5 


500 


J60 




X5 


510 


700 




X5 


520 


60W2 




X5 


530 


52H0 




X5 


540 


11W3 




X5 


550 


J60 




X5 


560 
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X5 


570 




60W3 




X5 


580 




52H0 






5 90 


TEST TYPES OF ARGUMENTS (0), (1) X6 


J43 






000 


OUTPUT (0) IS DIFFERENCE, SET H5. 


20 WO 




X6 






6 0W1 




X6 


020 




10X32 




X6 


030 


FIND ARGUMENT TYPE OF (1) 


J10 




X6 


040 


STORE IN W3 


60W3 




X6 


045 




11 WO 




X6 


050 




10X32 




X6 


060 


FIND ARGUMENT TYPE OF (0) 


J10 




X6 


070 


STORE IN W2 


60W2 




X6 


075 


COMPARE ARGUMENT TYPES 


J2 




X6 


080 




70 


J33 


X6 


090 


UNEQUAL, TEST IF (0) DETERMINER 


11W2 




X6 


100 




10X37 




X6 


110 




J2 




X6 






7091 




X6 


130 


SIGNAL (0) IS DETERMINER 


10X65 


90 


X6 




TEST IF (0) IS A NAME 91 


1 1W2 




X6 


150 




10X36 




X6 


160 




J2 




X6 


170 




7092 




X6 


180 


SIGNAL (0) A NAME 


10X68 


90 


X6 


190 


IF (0) A LOCATION. SIGNAL X69 92 


10X69 


J33 


X6 


200 


90 


J5 


J33 


X6 


210 


FIND LARGEST DIFFERENCE X7 


J44 




X7 


000 


BETWEEN INPUT AND OUTPUT 


10X71 




X7 


010 


OF SDSC (0). PUT DIFF. IN (0). 


J10 




X7 


020 


PUT LIST OF AFFECTED CELLS IN WO. 


60WO 




X7 


030 


FIND DIFFERENCE, NOT IN HO. 


1090 




X7 


040 




J100 




X7 


050 


EXIT IF FOUND 


70J34 




X7 


060 




11W0 




X7 


070 


FIND DIFFERENCE IN HO 


1091 




X7 


080 




J100 




X7 


090 


EXIT IF FOUND 


70J34 




X7 


100 




J90 




X7 


110 


IF NOT FOUND, 


J136 




X7 


120 




40H0 




X7 


125 


LEAVE NULL DIFFERENCE, 


10X80 




X7 


130 


V(X50)=X80, IN HO 


10X50 




X7 


140 




Jll 


J34 


X7 


150 


PUT AFFECTED CELL IN Wl 90 


64^/1 




X7 


160 




10X41 




X7 


170 


FIND TYPE OF AFFECTED CELL 


J10 




X7 


160 


COPY AND SAVE ITS NAME 


J74 




X7 


182 




J136 




X7 


163 




40H0 




X7 


184 




10X32 




X7 


190 




J10 




X7 


200 


TEST IF HO 


10X35 




X7 


220 




J2 




X7 


230 
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IF SO, EXIT. 

IF NOT ♦ CREATE DIFFERENCE, 
SAVE ITS NAME IN W2 , 
ASSIGN TYPE OF CELL 

FIND TYPE OF DIFFERENCE 



ASSIGN TYPE TO 1W2 

BRING DIFFERENCE IN, AND QUIT 

FIND TYPE OF AFFECTED CELL 



COPY ITS NAME 



SAVE AFFECTED CELL 



FIND ITS FIRST INPUT SYMBOL. 
AND SAVE IN W3. 
SAVE AFFECTED CELL 



FIND ITS FIRST OUTPUT SYMBOL 

COMPARE SYMBOLS 

IF IDENTICAL, 

CALL DIFFERENCE (COPY) 

NOT IDENTICAL, 

COUNT LIST X75 



COUNT LIST X76 



IF LISTS EQUAL 

CALL DIFFERENCE { REPLACE ) 



IF 1W4 LARGER, 

CALL DIFFERENCE (ADD) 

IF SMALLER, (DELETE) 

DATA 



7092 


Jb 


X7 


240 






X7 


250 


Jl 36 




X7 


260 


60W2 




X7 


270 






X7 


280 


0 




X7 


290 


J 1 1 












X7 


310 






X7 


320 






X7 


3 30 


J6 




X7 


340 


10X50 




X7 


350 


J 1 1 




X7 


360 


1 1W2 


J3 


X7 


370 


64W1 




X7 


3&0 






X7 


390 


J10 




X7 


400 






X7 


410 


Jl 36 




X7 


420 


J 3 


92 


X7 


430 






X7 


440 


10X75 




X7 


4 50 






X7 


460 






X7 


470 






X7 


480 






X7 


490 


10 ii n 




X7 


500 






X7 


510 


J81 




X7 


520 


1 1 W3 




X7 


530 


U107 




X7 


540 


7094 




X7 


550 


30H0 




X7 


560 


10X84 


0 


X7 


570 


40H0 




X7 


580 


10X75 




X7 


590 


J10 




X7 


600 


J126 




X7 


610 


2 0W3 




X7 


620 


10X76 




X7 


630 


J10 




X7 


640 






X7 


650 






X7 


660 


1 ?, ,o 




X7 


670 


Jl 14 




X7 


680 
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21T 




X110 


002 


914 


21AT EN 




X110 


004 


915 


21D OF 




X110 


005 


X 1 1 1 






XI 1 1 


000 




911 




Xlll 


010 




912 




Xlll 


020 




913 




Xlll 


030 




914 




Xlll 


040 




915 




Xlll 


050 




916 




Xlll 


060 




X31 




Xlll 


070 




918 




Xlll 


080 




X31 


0 


Xlll 


090 


911 


21THE V 




Xlll 


001 


912 


21ALUE 




Xlll 


002 


913 


21-OF T 




Xlll 


003 


914 


21HE AT 




Xlll 


004 
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PROCESS TESTN ( ) LESS < ) 



PROCESS. StT H5 



PROCESS. OUTPUT (0) TO ( ). 



PROCESS. INPUT ( )• 

ARG. X120 (1) 

TYPE- HO LIST LOCATION 



ARG. X121 

TYPE- DETERMINER 

JDEF IS 94 



915 


21TRIBU 


916 


21TE 


918 


210F 


X112 


0 




911 




912 




X31 




914 




915 




916 




X31 


911 


21TEST- 


912 


21N IF 


914 


21IS LE 


915 


21SS TH 


916 


21AN 


X113 


0 




911 




912 




913 


911 


21SET H 


912 


215 MIN 


913 


21US 


XI 14 


0 




911 




912 




913 




X31 


911 


210UTPU 


912 


21T (0) 


913 


21 TO 


X115 


0 




911 




X31 


911 


21INPUT 


X120 


90 




92 


90 


0 




X32 




X35 




X37 




91 




X45 




X170 


9 1 


0 




X151 




X150 


92 


21(1) 


X121 


90 


90 


0 




X32 




X37 




X22 




94 



Xlll 005 
Xlll 006 
Xlll 008 
X112 000 
X112 010 
X112 020 
X112 030 
X112 040 
X112 050 
X112 060 
X112 070 
X112 080 
X112 090 
X112 100 
X112 110 
X112 120 
X113 000 
X113 010 
X113 020 
X113 030 
X113 040 
X113 050 
X113 060 
X114 000 
X114 010 
X114 020 
X114 030 
X114 040 
X114 050 
X114 060 
X114 070 
X115 000 
X115 010 
X115 020 
X115 030 
X120 000 
X120 005 
X120 010 
X120 020 
X120 030 
X120 040 
X120 050 
X120 060 
X120 070 
X120 080 
X120 090 
X120 100 
X120 HO 
X121 000 
X121 010 
X121 020 
X121 030 
X121 035 
X121 036 
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DSCN IS 91. 



PROCESS IS Xlll. 



ARGS. ARE 

X122 

X123 



ARG. X122 (0) 



TYPE- HO LIST LOCATION 



ARG. X123 (2) 



TYPE- HO LIST LOCATION 





X20 




X121 


040 




91 


0 


X121 


050 


91 


92 


0 


X121 


060 


92 


0 




X121 


070 




X30 




X121 


080 




Xlll 




X 12 1 


090 










\ T'n 








yi ?i 




93 








1 9 










130 




yi 9 


0 


X12 1 


1 40 




0 




X12 1 


150 




95 


0 


X12 1 


160 


95 


96 


0 


X12 1 


170 


96 


0 




X12 1 


180 




X45 




X12 1 


190 




9 7 




X12 1 


200 




X46 




X12 1 


2 10 




98 


0 


X12 1 


220 


9 7 


99 


0 


X12 1 


230 


99 


0 




X12 1 


240 




X33 




X12 1 


250 




L10 




X121 


260 




X 34 




X 12 1 


270 




N 10 


0 


X12 1 


280 




910 


0 


X12 1 


2 90 


Q 1 n 








300 








i 91 










191 


9 




a? 




vi 99 
X122 


000 








X122 


005 


90 


0 




X 122 


010 








X122 


020 








X122 


030 




X37 




X122 


040 










050 














1 




¥199 


0 10 


Q 








080 




X151 


0 


X 1 2 2 


090 


92 


21(0) 




X 122 


1 00 


X 123 


90 




X123 


000 




92 


0 


X123 


005 


9 0 


0 




X123 


010 




X32 




X123 


020 




X35 




X123 


030 














91 




X123 


050 




X45 




X123 


060 




X170 


0 


X123 


070 


91 


0 




X123 


080 




X151 




X123 


090 




X150 




X123 


100 




X150 


0 


X123 


110 
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ARG. X124 ONO 



ARG. X125. VARIABLE S2 . 



ARG. X126. VARIABLE 50. 



92 


21(2) 




X123 120 


X124 


90 


0 


X124 000 


90 


0 




X124 010 


X32 




X124 020 




X36 




X124 030 




X37 




X124 040 




91 




X124 050 




X45 




X124 060 




92 


0 


X124 070 


91 


0 


0 


X124 080 


92 


93 


0 


X124 090 


9 3 


0 




X124 100 


X33 




X124 110 




L14 




X124 120 




X34 




X124 130 




NO 


0 


X124 140 


X125 


90 


0 


X125 000 


90 


0 




X125 010 


X32 




X125 020 




X36 




X125 030 




X37 




X125 040 




91 




X125 050 




X45 




X125 060 




X4 


0 


X125 070 


91 


0 


0 


X125 080 


X126 


90 


0 


X126 000 


90 


0 




X126 010 


X32 




X126 020 




X36 




X126 030 




X37 




X126 040 




91 




X126 050 




X45 




X126 060 




X3 


0 


X126 070 


91 


0 


0 


X126 080 


X150 


0 




X150 000 


911 




X150 010 




912 




X150 020 




913 


0 


X150 030 


911 


2 1 THE N 




X150 001 


912 


21EXT 0 




X150 002 


913 


21F 




X150 


X151 


0 




X151 000 


911 




X151 010 




912 




X151 020 




913 


0 


X151 030 


911 


2 1 THE C 




X151 001 


912 


210NTEN 




X151 002 


913 


21TS OF 




X151 003 


X170 


90 


0 


X170 000 


90 


0 




X170 010 


X32 




X170 015 




X35 




X170 016 




X33 




X170 020 




L8 




X170 030 
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SYMB H2 



SYMB. H5 



LIST OF SEGMENTS FOR 
COMPOSING J77 





X34 




X170 


040 




NO 


0 


X170 


050 


X171 


90 


0 


X171 


000 


90 


0 




X171 


010 




X32 




X171 


015 




X36 




X171 


016 




X33 




X171 


020 




L8 




X171 


030 




X34 




X171 


040 




Nl 


0 


X171 


050 


X172 


90 


0 


X172 


000 


90 


0 




X172 


010 




X32 




X172 


015 




X36 




X172 


016 




X33 




X172 


020 




L8 




X172 


030 




X34 




X172 


040 




N2 


0 


X172 


050 


X175 


90 


0 


X175 


000 


90 


0 




X175 


010 




X32 




X175 


015 




X36 




X175 


016 




X33 




X175 


020 




L8 




X175 


030 




X34 




X175 


040 




N5 


0 


X175 


050 


X180 


0 




X180 


000 




90 




X180 


005 




91 




X180 


010 




92 




X180 


015 




93 


0 


X180 


020 


90 


0 




X180 


025 




94 


0 


X180 


030 


94 


940 


0 


X180 


035 


940 


0 




X180 


040 




X45 




X180 


045 




941 


0 


X180 


050 


941 


942 


0 


X180 


055 


942 


0 




X180 


060 




X33 




X180 


065 




L10 




X180 


070 




X34 




X180 


075 




N50 


0 


X180 


080 


91 


0 




X180 


085 




95 


0 


X180 


090 


95 


950 


0 


X180 


095 


950 


0 




X180 


100 




X45 




X180 


105 




951 


0 


X180 


110 


951 


952 


0 


X180 


115 


952 


0 




X180 


120 




X33 




X180 


125 




L10 




X180 


130 




X34 




X180 


135 





N60 


o 


X180 


140 


92 






X 180 


145 




96 




X 18 0 


1 50 










155 




9R 




X180 


160 






n 


X180 


165 


60 








1 70 








X180 


175 








X180 


180 








X180 


185 




N2 




X180 


190 




X45 




X180 


195 




961 


o 


X180 


200 


96 1 


962 


o 


X180 


205 


962 


o 




X180 


210 








X180 


215 




L8^ 




X180 


220 




_ 




X180 


225 






o 


X180 


230 


97 


970 


0 


X180 


235 


9 70 


o 




X180 


240 








xiao 


245 








X180 


2 50 




x 






2 55 








y i an 












265 










270 








X180 


2 75 


07? 


0 




X180 


280 




X33 




X180 


285 




L23 




X180 


290 




X34 




X180 


295 




NO 


0 


X180 


300 


98 


980 


0 


X180 


305 


980 


0 




X180 


310 




X45 




X180 


315 




981 


o 


X180 


320 


981 


982 


o 


X180 


325 


982 


o 




X 1 80 


330 




X33 




X180 


335 




L 1 0 




X 1 8 0 


340 


















X180 


3 50 








X180 


3 55 




99 




X180 


360 




910 


o 


X180 


365 


99 


990 


0 


X180 


370 


990 


0 




X180 


375 




X43 




X180 


380 




N3 




X180 


385 




X44 




X180 


390 




NO 




X180 


395 




X45 




X180 


400 




991 


0 


X180 


405 



FLOW DIAGRAM FOR J77 



991 


992 


0 


X180 


410 


992 


0 




X180 


415 




X33 




X180 


420 




L8 




X180 


425 




X34 




X180 


430 




NO 


0 


X180 


435 


910 


995 


0 


X180 


440 


995 


0 




X180 


445 




X45 




X180 


450 




996 


0 


xiao 


455 


996 


997 


0 


X180 


460 


997 


0 




xiao 


465 




X33 




X180 


470 




L10 




X180 


475 




X34 




X180 


480 




N30 


0 


xiao 


485 


X181 


0 




X181 


000 




90 




X181 


010 




91 




X181 


020 




92 




X181 


030 




93 


0 


X181 


040 


90 


905 


0 


X181 


050 


905 


0 




X181 


060 




X41 




X181 


070 




Nl 




X181 


080 




X43 




X181 


090 




NO 




X181 


100 




X46 




X181 


110 




N2 


0 


X181 


120 


91 


915 


0 


X181 


130 


915 


0 




X181 


140 




X41 




X181 


150 




N2 




X181 


160 




X43 




X181 


170 




N7 




X181 


180 




X45 




X181 


190 




N4 




X181 


200 




X46 




X181 


210 




N3 


0 


X181 


220 


92 


925 


0 


X181 


230 


925 


0 




X181 


240 




X41 




X181 


250 




N3 




X181 


260 




X43 




X181 


270 




N7 




X181 


280 




X45 




X181 


290 




N2 




X181 


300 




X46 




X181 


310 




N4 


0 


X181 


320 


93 


935 


0 


X181 


330 


935 


0 




X181 


340 




X41 




X181 


350 




N4 




X181 


360 




X43 




X181 


370 
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ROUTINE J77 



X182 
90 



91 

92 



LIST OF COMPILED ROUTINES 
WITH DSCNS. 



X198 
90 



DESCR I bA3LE N-LlST 



NO 

X46 

NO 

90 

0 

X41 
91 
92 
0 

X33 
L10 
X34 
N77 

0 

X101 
X102 
X104 
0 

X20 
X24 
90 
0 

X20 
U134 
X24 
U140 

0 

NO 
Nl 
N2 
N3 
N4 
N5 
N6 
N7 
N8 
N9 
Tl 



X181 380 
X181 390 
X181 400 
X182 000 
X182 010 
X182 020 
X182 030 
X182 040 
XI 82 050 
X182 055 
X182 060 
X182 070 
X182 080 
X196 000 
X196 010 
X196 020 
X196 030 
X197 000 
X197 010 
X197 020 
X198 000 
X198 010 
X198 020 
X198 030 
X198 040 
X198 050 
X199 000 
X199 010 
X199 020 
X199 030 
X199 040 
X199 050 
X199 060 
X199 070 
X199 080 
X199 090 
X199 100 
Tl 000 
002793 



002793 
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Appendix B 

PROGRAM LISTING OF AN INFORMATION- ANNEXING SCHEME 



The listing in this Appendix is for an annexing 
routine, capable of annexing to memory the contents of 
sets of sentences of the kinds considered in Part III. 
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5306M0. PREPAPF LIST <o> FOR 
3073 Ml. OUTPUT (0' IS VALUE 
3075 (1) IS FUNCTION 
307ft X99= ... IS THE 

3077 VALUF OF ... 
3078PUT FUNCTION IN WO 
3080 
3081 

3083IF VALUF IS SYMBOL 

3084F1ND IT, AND DO 90 

3086 

3087 

3091 

3093 

3094 

3089BRING IN FUNCTION 
3097 AND EXIT 

5307ASSIGN (0) AS VALUE OF T HF ( 1 ) 

3090 

3098 

3100 

3102 

3103SIMPLIFY (0) 

3104 

3106 

3107 

3109 

3110 

3111 

3114 

3118 

3120 

3122 

3123 

3124 

3129 

3130 

3132 

3133 

3134 

3136 

3116 

3139 

3140 

3141 

3143 

3127ASSIGN 1W0 

3145 AS VALUF OF JB1HHD OF (0). 

3147 

3148 

3150IF J81 ( 1W1 >*X98 

3152 PUT 1W0 AT END OF (0) 

3153 



10 
100 
100 
200 
200 



4 0 H0 

10X99 
J62 
J75 
J50 

4QH0 
J70 

4QH0 
J60 

70J7 
J60 

30H0 

70 

J60 
52H0 
11W0 

J6 

J4? 

J21 
11W1 
40HQ 

M20 

M21 
40H0 

M20 
20W1 

J71 

J71 
11W1 

J83 
7090 
30H0 

J90 

J136 
60W2 

910 
11W1 

J60 

J68 
1 1W2 
20W0 
11W1 

J82 

91 0 
11W1 

J71 
11W0 
11W1 

J81 
4QH0 
10X98 

J2 
70J11 



M000010 
M 0 0 0 0 2 0 
M000030 
M000040 
M000050 
MQ00060 
M000070 
M000080 
M000090 
M000095 
M000100 
M000110 
M000120 
M 0 0 0 1 30 
M000140 
M000150 
M000160 
M001010 
M001020 
M001025 

M001026 
M001027 

M001028 
M001029 



M001030 
M001040 
M001050 
MQ01060 
M001070 
MO 01080 
M001090 
M0011 10 
M0011 40 
M001150 
M001160 
MQ01170 
M001180 
M001190 
M001195 
M001210 
M001230 
M001240 
M001250 
M001260 
M001270 
M0012H0 
M001290 
M 0 0 1 3 0 0 
M001310 
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315 5 








30H0 


J65 


M001320 


5 3 0 8 






M2 


M10 




M002010 


3128 








40H0 




3117 








Jl 50 






3115 








J4 




M002015 










1090 




M002020 


3160 








J 1 0 0 




MQ 020 25 


3161 








Jl 54 






316? 








J 1 5 5 






316 3 








10*105 




M002026 










m 4 


M7 


MO 02027 


3112 






9 0 


0 




MO 02030 


316 6 








Ml 




MO 02040 


316 7 








J l 54 




M002045 










Jl 55 




M002046 


3169 








10*105 




MO 020 50 


3171 








J150 


J4 


M002060 


5309DFLFTF 


X98 TO X97 OF (0> 


M3 


10*97 




M003010 


317? 








10*98 


M26 


M003020 


5310M4, 


CREATE DESCRIPTION 


M4 


J9 0 




MQ04010 


3174 


OF EXPRESSION <0> 




J9 0 




M 0 4 0 2 0 


31750UTPUT 


(0) IS DESCRIPTION 




J 5? 




MQ4 030 


3176 








liwi 




M004032 


3178 








10*100 




M 0 0 4 0 3 4 


3180 








J6 5 




M004036 


31811W0 


IS 


OUTPUT LIST 




1 1 W 1 




M 0 4 0 4 0 


31831W1 


IS 


GENERATOR LIST 




11W2 




M04 0 50 


318S1W2 


IS 


EXPRESSION 




J64 




M 0 4 0 6 0 


3186 








1 1 W 1 




M 0 4 0 7 0 


3190 








1 0 9 0 




M 0 4 0 8 0 


319? 








Jl 0 0 




MQ4 090 


3193 








liwo 


J3? 


MO 041 0 0 


31881W2 


IS 


CURRFNT EXPRESSION 


9 0 


40H0 




MO 04 Oil 


3196 








J152 






3197 








6 0W2 






3199FIND ITS TYPE 




M5 




MQ4 120 


3200APD 


IT 


TO END OF VALUF LIST 




4 0 H 0 




M 0 4 13 0 


320? 1 


fOR 


type 




1 iw 0 




M 0 4 14 0 


3 20 4 








J6 




MQ4 150 


320 5 








11W2 




M 0 4 16 0 


3207 








J6 




M 0 4 17 0 


3208 








J 1 3 




Mfl4 180 


3209 








HW2 




M 0 ^ 19 0 


3211PUT 


COMPONENTS ON GEN, LIST 




liwi 




MQ 0420 0 


3213 








M6 


J4 


MQ 04210 


5311M5. 


FIND TYPE OF EXPRESSION (0) 


M5 


J 0 




M 0 0 50 1 0 


3189 








1 2H 0 




M 0 5 015 


32150UTPUT 


(0> IS TYPF 




_ ^ 6 0 




M 0 5 0 2 0 


3216 








3 0 H 0 




M 0 5 0 3 0 


3220 








7 0 


9 0 


M 0 0 5 0 5 0 


3222 








J6 0 




M 0 5 0 50 


3223 








30H0 




M 0 5 0 6 0 


3228 








7 0 9 1 




MO 5 0 70 


3230 








10*8 5 


0 


M 0 5 0 8 0 


3218 






9 0 






M O.fl 5 0 9 0 


3?33 








1 0 X86 


0 


MO 0 50 9 5 


3226 






91 


10*45 


0 


MO 5 10 0 


3237 






9 2 


3 0 H 0 


9 1 


m n n m 1 n 


5312M6 . 


PUT 


COMPONENTS OF (1) 


M6 


J52 




M006010 


3238 OF TYPF. (2) 




11W? 




MQ6 020 
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32270N RFMfcRATOW LIST (0) 

3219N0 OUTPUT 

3240 

324? 

3?44 

3246 

3247 

3249 

3251 

3253 

3256 

325* 

3261 

3266 

3268 

3270 

3272 

3 273 

3254 

3276 

327A 

3280 

3281 

3 28 3 

3285 

3286 

3264 

5313M7. PRINT DESCRIPTION (0) 
3277 SAVF IT IN WO 
3265 PRINTS ITS LIST OF DL.S 
3255 
3288 
3290 
3292 
3293 
3295 
3297 
3262 
3299 
3300 
3304 
33 06 
3302 
5316M10 
3303 
3301 

3307 AND STORE AS LIST OF 

3306 LISTS <0>. 

3310 

3311SPT UP OUTPUT LIST 
3312 

3313READ NEXT LINE 
331« 

3320SET UP STATEMENT LIST 
3321 

3322SET POINTER TO PSJ 0 
3324 

3325SET POINTER TO FIRST SUMB 

3326 

3328 



92 
M7 



PRINT ITS LIST OF LIST 



PRINT ITS LIST OF SYMBOLS 



PRINT ATTRIBUTE 



PRINT LIST 
SPACE 

RE A 0 LIST OF STATEMENT 



90 
M10 



10X4S 
J? 

70 

11W0 
10X100 

J62 

?owo 

11W2 
10X85 

J2 
7090 
11W1 

J60 
7092 
12H0 
11W0 

J6 

J63 
12W1 

J60 
7092 

J60 
12H0 
11W0 

J6 

J63 
30H0 

J40 
60W0 
10X86 

910 
11W0 
10X85 

910 
11W0 
10X45 

910 
4QH0 

J152 

J10 
7090 

J151 

J154 

JO 

J154 

10W25 
Mil 

10W30 
Mil 
J90 
J50 
J180 

7091 
J90 
J136 

11W25 
J124 
J184 

7091 

30H0 



91 

J32 



M 0 6 0 3 0 
M06 040 
M06 050 
M006052 
MQ06054 
MQ06056 
M006058 
M06 060 
M06 070 
M06 080 
M06 090 
M006141 
M006142 
M006143 
M006144 
M006145 
M006146 
M006147 
M06 150 
M06 160 
M06 170 
M006175 
M06 180 
M06 190 
M06 200 
M006210 
M 0 6 230 
M007010 
M007020 
M002030 
MQ07040 
M007050 
M007060 
M007070 
M007080 
M007090 
M007100 
MQ07110 
M007120 
MQ07130 
M007140 
M0071 50 
MQ07160 
M10005 

M10010 
M10020 
M 1 0 0 3 0 
M10040 
M10050 
M10060 
M10070 
M10080 
M100<J0 
M101D0 
M10110 
M10120 
M10130 
M10135 
M10140 
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SET UP D. 



IN (0) 



CREATE FIND LIST 
FROM DESCRIPTION LIST (0) 
OUTPUT (0) IS FIND LIST, 



3331 
3334 

3 3 3 5ME A SURE SYMR 
3336 

3338 AND SAVF IT 

3340AND INPUT IT TO HO 

3341PUT IT AT END OF STATEMENT I J ST 

334? 

3344FIND NEXT SYMR 

3345 

3 3 50 

3316 

3 3 53 

3355 

3348 

335B 

3359 

5317M11 , 
3349 
3347 
333? 
3317 

5326M20 . 
3314 
3360 
3362 
3366 
3368 
3369 
3 36 4 
3371 

5327M21. REDUCE FIND LIST (0) 
3365 OUTPUT (0) IS REDUCED LIST 
3374 
3 375 
3377 
3379 

3382L0CATF NEXT DETERMINER 
3386 IF NONE # GO TO 90 
3388FIND DETERMINER 
3390 SAVE IT 
3392DETERMINE FUNCTION 
3396IF NO VALUE. QO TO 91 
3 398 DELETE ARGUMENT FROM LIST 
3400 

3401RFPL ACE DETERMINER WITH VALUE 

3384END OF LIST 

3404 

3394PR0CESS X97 OR QUIT 

3407 

3409 

3410 

3412P0INT TO PREDECESSOR OF X97 

3414AND PROCESS IT 

3418 

3420 

3425 

3423 

3426 

3428 



FIND NEXT ARGUMENT 



92 


HW30 




M10150 




Jl?4 




M10160 




J183 




M10170 




30H0 




M10180 




40H0 




M10100 




Jiei 




M10190 




J65 




M10200 




11W25 




M10210 




J184 




M10220 




30H0 




M10230 




7093 


92 


M10240 


91 


30W25 




M10250 




30W30 




Mlf1260 




11W0 


J3 0 


M10270 


93 


11W0 




M102«0 




J6 




M10290 




J65 


90 


Min300 


Mil 


J50 




Mil 010 




J90 




M11020 




J124 




Mil 030 




41W0 




Mil 040 




21W0 


J30 


Mil 050 


M20 


J50 




M020010 




J90 




M020020 




4QH0 




M020030 




liwo 




M020040 




1090 




M020050 




J100 




M020060 




30HQ 


J30 


M020065 


90 


J64 




MQ2 0 0 7 0 




40H0 


0 


M02 0 0 80 


M21 


J41 




M021010 




40H0 




M021020 




J60 




M0?10i0 




60W0 




M0P1O40 




52H0 




"021050 


92 


liwo 




MQ21060 




J60 




M021070 




7090 




M021080 




52H0 




M0P1090 




60W1 




M0211 00 




J10 




M021H0 




7Q91 




M021120 




11W0 




M0211 40 




J68 




M021140 




61W0 


92 


M0211 50 


90 


30H0 




M021160 




30H0 


J31 


MO21170 


91 


11W1 




M021180 




10X97 




M021190 




J2 




M021200 




7QJ31 




M021210 




liwo 




M021220 




M22 




M021240 




7093 




M021240 




61WQ 




M021250 




94 


92 


M021254 


94 


JO 




M0?l?55 




liwo 




*0?1?56 




M24 




M0P1260 
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X9* 

3431 

3416CRF4TF ORJFCT FOR 
3433SURDESCRIPTI ON 
3435C0PY PART DESCRIPTION 
3436 

343PCRFATF NEW OBJECT 

3439 

3440 

344? 

3444 

3446 

3447PUT IT AT HF A D OF PART DESCRlPT 

3448 

3450 

3451PUT IT AT END OF ARG LIST 
345? 

3454DFSCRIRE IT 

3455 

3456 

3457SURSTITUTE IT FOR ARG 
3459 

5328M22. IDENTIFY LIST MEMBER 
3424 

3417 WITH ARG. LOCATION <0> 

3415 X97 AT N(0) 

3395IF IDENTIFIED, OUTPUT 

3385(0) IS NAME OF MEMBER, 

3461IF NOT IDENTIFIED* NO 

34630UTPUT, FIND LIST NOT 

3464 

3465 

3467 

3469 

3380MUTILATFD 
3472 
3476 
3478 
3474 

5329M23. 
3475 
3460 
3482 
3484 
3486 
3487 
3489 
3490 
3491 
3 49 3 

3498D0 90 ON CELLS OF (0) 
3500 
3496 

3502IF SYMB JS X98, QUIT 
3 50 4 
350 5 
3509 
3511 

3507IF NOT, ADD TO LIST 
3512 



COPY DESCRIPTION FROM 
X97 TO X98 OF (0) 
OUTPUT <0> IS COPY 



TEST IF * X97 



PUT LOC OF X97 OUT 
CREATE NAME OF COPY 





11W0 




M 0 2 1 2 7 0 




J60 


J68 


MQ212H0 


93 


40W2 




M 0 2 1 3 0 0 




11W0 




^021310 




M23 




MQ21320 




20W2 




M021330 




J90 




M 0 2 1 3 4 0 




J136 




M 0 2 1 3 4 5 




40H0 




M 0 ? 1 3 5 0 




40H0 




M 0 2 1 3 6 0 




11W2 




M021370 




J6 




M 0 2 1 3 8 0 




J64 




M 0 2 1 3 9 0 




12W0 




M021400 




J6 




"021410 




J65 




M021420 




11W2 




MQ21430 




M20 




M02144C 




M0 




M0214S0 




Ml 




M021460 




21W0 




MQ21470 




94 


J3? 


M021480 


M2? 


JO 




M022010 




12H0 




MQ22015 




J50 




M022020 




M23 




M022030 




4QH0 




M022040 




11W0 




MQ22050 




1090 




M022060 




J100 




M022 0 7 0 




J5 




M022072 




70 


J30 


M 0 2 2 0 / 4 




30H0 




MQ22076 




30H0 


J30 


M022078 


90 


60^0 




M022080 




M?5 




M022090 




70 


91 


M022100 




4QH0 


J4 


MQ221 10 


91 


51W0 


J3 


M022120 


M23 


JO 




M023010 


91 


J60 




M023020 




70J7 




M 0 ? 3 n 3 0 




12H0 




M 0 2 3 0 4 0 




10X97 




M023050 




J2 




M023060 




7Q91 




M023070 




J50 




M023080 




J90 




M023090 




40HO 




M023100 




11W0 




M0231 10 




1090 




M 0 2 3 1 2 0 




J100 


J30 


M 0 2 3 1 3 0 


90 


4QH0 




M023140 




10X98 




MQ23150 




J2 




M023160 




J5 




M023170 




70 


92 


M023180 




J8 


J8 


M 0 2 31 9 0 


92 


J65 




M023200 




4QH0 


0 


M 0 2 3 2 1 0 
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5330DF-LETE 


X97 TO 


X98 


OF ( 0 > 




M24 


1 0 X 9 8 




M024010 


350^ 














10X97 


M26 


M024020 


5331M25. TEST IF <0> FITS 




M25 


J51 




M025010 


3495 DESCRIPTION 


<1) 






91 


liwo 




MQ25020 


3515 














11W1 




M 02 50 30 


3517LOCATF 


NEXT DETERMINER 






J60 




M025040 


3518SAVPE LOCATION 










60W1 




M025050 


3520FIND IT 












52^0 




M025060 


352? 














40 H 0 




M02 50 70 


3524 














10X99 




M025080 


352MS 


IT X99 










J? 




MQ25090 


3530IF 


SO, 


TERMINATE TEST 






70 


9 0 


M025100 


3532FIND VALUE OF 


(0) 








J10 




M 02 5110 


3533IF 


NONE 


, EXIT 


WITH 








70 J31 




MQ25120 


3535IF 


SO, 


SURSTITUTE 


IT FOR 


( 0 ' 




20^0 


91 


M0? 5130 


352PC0MPARE 


VALUE 


WITH 


VALUE 




9 0 


30H0 




M02 51 4 0 


35380F 


DESCRIPTION 










11W1 




M025150 


3540 














J60 




MQ?55 60 


3541 














70 J7 




MO? 51 70 


3543 














52H0 




M025180 


3545ANO 


EXIT WITH 


SIGNAL 






J2 


J31 


M025190 


5332M26 


DELETE SECT FROM <o> 


TO ( 1 ) 


M26 


J52 




M026010 


35290F 


I IT 


( 0 > . NO 


OUTPUT , 






11W2 




MQ26020 


347 3 TESTS THAT CN(2>*<0>. IF 


( 1 ) 




11W1 




M0?6030 


3 54 7NO T 


ON 


LIST, DOES 


M n t u t Mr* 






J77 




m 026 0 4 0 


3 548 














7 0 J 3 2 




M0260 50 


3550 














1 1W2 




M026060 


3 552 














J6 0 




M0260 70 


3 553 














1 2H 0 




M026080 


3 555 














1 iw o 




M026090 


3557 














J2 




M0?61 0 0 


3 558 














70 J7 




M026110 














9 0 


J68 




M026120 


3562 














1 1W2 




M026130 


3564 














J6 0 




MQ26140 


3565 














70 J7 




M 0261 50 


3567 














1?H0 




M0?6160 


3569 














11W1 




M026170 


3571 














J2 




M0?6180 


3 572 














7090 




MQ?61 90 


3 57 4 














3 q h o 


J32 


M026200 


5619 












5 

X 1 1 3 






X113010 


5296 












A 0 


o 




A 0 0 0 0 1 0 


3561 














X113 




A 0 0 0 0 13 


3576 














X99 




A 0 0 0 0 1 5 


3577 














X31 




A 0 0 0 0 20 


3578 














X20 




A 0 0 0 0 3 0 


3579 














X 1 0 5 


o 


A 0 0 0 0 40 


5297 












A 1 


o 




A 0 0 1 0 1 0 


3580 














X114 




A 0 0 1 0 1 3 


3581 














X9V 




A001015 


3582 














X33 




A 0 01 0 20 


3583 














X25 




A 0 0 1 0 3 0 


3 58 4 














XI 0 5 




A001040 


5298 












A 2 


0 




A002010 


3 58 5 














X115 




A002013 


3586 














X116 




A002015 


3 58 7 














X99 




A002017 


3588 














X34 




A002020 
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3589 
3590 
5407 

5530SDSC OF ROUTINE 

3591 

3593 

3594 

3595 

3599 

3597 

3600 

5547NAME 
3598 
3592 
3601 

5577LIST OF AFFECTED CELLS 

3596 

36 0 3 

3604 

3605 

3606 

5578AFFEGTEO CELL 

3602 

3608 

3609 

3610 

3614 

3612 

3615 

3616 

3617 

5581INPUT STATE OF CELL 

3613 

3607 

3618 

3619 

3620 

55820UTPUT STATE OF CELL 

3611 

3622 

3623 

3624 

36 25 

5591LIST 

5592DESCR I PT I ON LIST 
5593ATTR I BUTE 
55940BJECT 
5595V ALUE 
5597MEMBER TyPE 
112 





X25 




AO 02030 




X105 


0 


A002040 


Nl 


1 




1 N001010 


y24 


90 


0 


X24 010 


90 


0 




X24 020 




X32 




X24 030 




X86 




X24 040 




X87 




X24 050 




91 


0 


X24 060 


91 


0 




X24 070 




X71 


o 


X24 080 


X41 


90 


0 


X41 010 


90 


0 




X41 020 




X32 




X41 030 




X45 


0 


X41 040 


X71 


90 


0 


X71 010 


90 


0 




X71 020 




X32 




X71 030 




X85 




X71 040 




X91 




X71 050 




X72 


o 


X71 060 


X72 


90 


o 


X72 010 


90 


0 




X72 0 20 




X32 




X72 030 




X86 




X72 045 




X87 




X72 050 




91 


0 


X72 060 


91 


0 




X72 070 




X41 




X72 080 




X75 




X72 090 




X76 


o 


X72 100 


X75 


90 


o 


X75 010 


90 


0 




X75 020 




X32 




X75 030 




X85 




X75 040 




X91 




X75 050 




X45 


o 


X75 060 


X76 


90 


o 


X76 010 


90 


0 




X76 020 




X32 




X76 030 




X85 




X76 040 




X91 




X76 050 




X45 


0 


X76 060 


X85 






X85 


X86 






X86 


X87 






X87 


X88 






X86 


X89 






X89 


X91 






X91 010 



3630 



0 

3627 
3637 
3644 



3 0 

0 X113 

0 X99 

0 X31 

0 X20 



